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The construct of this paragraph is: 



FILE CONTROL 



[ SPECIAL-NAMES. 

r , t TC POSITION) . -, 

[data-name IS \ integer.] 

[data-name IS LINE integer.] 

Va t TC I COLUMN) . -, 

|_data-name IS j \ integer.] 




Example: 
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INPUT-OUTPUT SECTION 

The input-output section contains information concerning files to be used by the object program. 
FILE CONTROL 

The function of this paragraph is to identify each file, to specify input-output hardware assignment and 
to specify work areas and buffers for input and output data. The paragraph begins: 



FILE - CONTROL 



The appropriate option or options below may then be chosen. It is necessary that the OBJECT 
COMPUTER be equipped with appropriate firmware i.e., source programs which SELECT the CARD- 
READER must have their object programs run on computers equipped with 80-column card firmware 
sets, source programs which SELECT DATA - COMM IN or DATA-COMM OUT must utilize data 
communications firmware with their object programs. Firmware sets exist which allow both 80-column 
card and data communications operations. Each of the options below may be used only once per source 
program. These options are: 

OPTION 1 



SELECT file-name ASSIGN TO CARD-READER 




WORK - AREA 



This option ASSIGNS the chosen file-name to the card reader buffer in main memory. The use of the 
READ construct in the PROCEDURE DIVISION will cause an 80-column card to be read and the data 
stored in a character mode in the card reader buffer. 

The program must specify either USE WORK-AREA or NO WORK-AREA. The USE WORK-AREA 

clause appears when the data is to be reformatted from character mode to main memory fields. These 
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fields are determined by the DATA RECORD definitions in the DATA DIVISION (see page 5-2). The 
FILL verb is used in the PROCEDURE DIVISION to transfer the data from the card reader buffer and 
reformat the data into individual main memory fields. 

The NO WORK-AREA clause indicates that the data will be accessed directly from the card reader 
buffer. The FILL verb is not used for this case. 

The nature of the card punch peripheral device excludes it from file control. 

OPTION 2 



SELECT file-name ASSIGN TO DATA-COMM IN [ RESERVE ALTERNATE AREA] 
[ACCESS MODE IS SEQUENTIAL] | j^p [ WORK - AREA 



This option ASSIGNS the chosen file-name to the data communication input buffer. The RESERVE 
ALTERNATE AREA clause will cause a working record area to be used along with the data 
communications input buffer. See READ page 60. 

The ACCESS MODE IS SEQUENTIAL clause is used to specify that the DATA-COMM IN file will be 
accessed in a serial manner. 

This clause can be used only if the fields of the buffer are all fixed length. 

The ACCESS MODE IS SEQUENTIAL clause will prevent the compiler from generating field pointers 
and therefore save code. 

The USE WORK-AREA clause or NO WORK-AREA clause must be specified. 

The USE WORK-AREA clause signifies that the data received will be accessed from individual main 
memory fields. The FILL verb must be used in the PROCEDURE DIVISION to accomplish the 
transferring and reformatting of data from the buffer (or alternate area if specified) to the work-area. 
The main memory fields are determined by the DATA RECORD definitions within the DATA 
DIVISION. 

The NO WORK-AREA clause indicates that the data will be accessed directly from the data 
communications input buffer. 

OPTION 3 



SELECT file-name ASSIGN TO DATA-COMM OUT [RESERVE ALTERNATE AREA] 
ISff WORK-AREA 
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This option ASSIGNS the chosen file-name to the data communications output buffer. The RESERVE 
ALTERNATE AREA clause will cause a working record area to be used along with data communi- 
cations output buffer. See WRITE page 6-60. 

Either the USE WORK-AREA or NO WORK-AREA clause must be used. The USE WORK-AREA clause 
specifies that the output data will be accessed from individual main memory fields. The NO 
WORK-AREA clause signals the compiler that the data will be accessed directly into data communi- 
cations output buffer (or alternate area if declared, accessing is in only a serial manner.) 



Example: 



OS ' 
6 ' 




1 t 1 

BLLE 
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. . . , ACCESS M0DE ,I,S, SEQUENTIAL , , , 
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The first example above ASSIGNS the file-name LINE-DATA-IN to the data communications message 
receive record area. The data will still be in character mode since the ACCESS MODE IS SEQUENTIAL 
and NO WORK-AREA clauses are used. 

The second example ASSIGNS the file-name CARD-DATA-IN to the card reader buffer area in main 
memory. The card data will be moved to the WORK-AREA when the FILL verb is used in the 
PROCEDURE DIVISION. 

I-O-CONTROL 

The function of this paragraph is to specify the memory area to be shared by different files during 
processing. 





I-O-CONTROL. 

L [SAME AREA FOR file-name- 1. file-name-2. ] 

[SAME WORK-AREA FOR file-name- 1. file-name-2 ] 





The I-O-CONTROL paragraph name may be omitted from the program if the paragraph does not 
contain either of these clause entries. 

The SAME AREA clause is used only to specify that DATA-COMM IN and DATA-COMM OUT alternate 
record area (declared by the RESERVE ALTERNATE AREA clause) will use the same main memory 
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I-O-CONTROL 



The SAME WORK-AREA clause is used to specify that the work areas (declared by the USE 
WORK- AREA clause) will use the same main memory area. However, if two or more files share the 
same area, only one file may access the area at any given time, and processing of one record must be 
complete before attempting to use the area for another record from either file. 

Note 

The file requiring the largest memory area (work area) must be declared first in the DATA DIVISION. 

CODING THE ENVIRONMENT DIVISION 

An example of the ENVIRONMENT DIVISION coding is provided in Figure 4-1. 



o 1 



o ; 

3 
4 
5 

(L4_ 

07 
8 
♦_ 
6 



J 



_LLU 



Mil 



RgNMENT, ■DH.VJ.S.IflN.. , , 



L0ME 



<tatlR LB-. CgMP.UT.ER . , B-3SOQ,. 
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TJM.RUTrfl.U.T.P.U.T. SECT, I AM. 



E ST- ■COMPUTER.. .L-aiQI.. 



TflTAL-P0S iLS PflSI.T.IflN 
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i i i 
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.EiLiLE 



i i i 



J l—L 



J 1_J_ 



4-L-L1- 



116 



l?0 



12i_ 



_L28_ 



-iiL. 



TfiU.RAT.IflN ,SE,C.T,IflN. 



J__l_ 



J_L 



I I I 



-aftMTR&L 



j. i i i 



i i i i i i ' i 



aa 



fi& 



■L.I.NE-.I.N, AS&TfiM 



■TB QATA 



i i 
i i 



i i 



i i 



J_L 



J_L 



_L_L 



J_L 



_L_L 



cmmuL 



J_I_JL 



RESERVE, ALTERNATE AREA USE WflftK-APF.A 



ASSIGN Tfl DAXA^CflMM 0UI 



dTLiGABDL-iDATA-IiM AS&L6N J0 ^ QlV R EAnfiiR, 
■ . i USE, WflRK-ARBA,., , i , , , , 



. Ii~0-* C^Ni"TiRflil-'«' i i i i i i i i i i i i i i i i i i i i 



I I I I I I I 



II 



Same, area Eaa aM-jhiiNiB-iLNy g^.Lii^f-.-g/gm. 



II 



SAMElJM0iRK AREA. J=ga_0M- iLlil\tE l - l r l M t , ^ N- l LT,NP! l -g»l l Ti ; 

._l x__i C A i RQ- i DA i TA" '.iIifcL.i-_L_L_i_L. i i i i i i i i i i , , , , , i , , , , , 



Figure 4-1 Sample Coding for Environment Division 
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PICTURE 



This clause cannot be used in any data description entry whose level-number is 01, and it can be used 
only with elementary items. 

The integer may not be zero and must not exceed 256. The OCCURS clause may not appear with a 
VALUE clause or with an item which is subsequently REDEFINED. 

Every item which is being defined by a given OCCURS clause will have the same FORMAT (discussed 
on page 5-3) or PICTURE (discussed on page 5-5). 

The following illustrates the use of the OCCURS clause. 

Example: 



i ♦ 



[20. 



I I I 1 I I I I I I I I I I I I II! | | | | | | | 

Q2, . pAIiLiYi-.TflTALS, , PC QQQa 0GCiU.RS ,?Q TilMBSn. , , , 



■ i i ' ' i ' ' i 
i ' i ' ' ' ■ ' ■ 



In the above example, a 20-word sequential storage area is defined, each of which has a format of 9999. 
An item in this area must be referenced by appropriately subscripting the data-name DAILY-TOTALS. 



PICTURE 



The function of this clause is to describe the size, class, general characteristics and the editing 
requirements of an elementary item. 

The construct of this clause is: 



/ 



PC 

PIC 

PICTURE 



• IS (any allowable character string to describe the data). 



A maximum of 24 characters and symbols may be used to describe a numeric item, which cannot 
exceed 1 5 digits. An alpha item may not exceed 99 characters. 

The PICTURE clause determines the print specifications. It also determines the decimal alignment, and 
keyboard entry factors unless a FORMAT clause is used in addition to the PICTURE clause in which 
case the FORMAT clause will determine the decimal alignment (for scaling) and keyboard entry factors. 

The symbols used to define the category of an elementary item and their functions are explained as 
follows: 

1 . The letter _J in the MSD position of a picture indicates suppress punctuation. 

2. The letter_J to the left of the decimal but not in the MSD position indicates reinitiate zero 
suppression and suppress for one digit (single digit zero suppress). The single digit zero 
suppress may be continued to the right with the letter Z_ for each additional character. 

3. The letterj^to the right of the decimal point indicates initiation of trailing zero suppression. 
Zero suppression is re-initiated and may be continued to the right with the letter Z_for each 
additional character. 

4. The letter K_ coded in the MSD position indicates "print compress" (TC 700 only). 
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5. The letter_P coded in the MSD position indicates "punch zero suppress". 

6. The letter X_ indicates a single alpha character. 

7. The letter Z indicates zero suppression of number data. 

8. The number 9 indicates numeric data with no zero suppression. 

9. The special character _$_indicates floating dollar protection. 

10. The special character comma (,) indicates insertion of a comma. 

11. The special character period (.) indicates insertion of a period and the decimal or scaling 
factor. 

12. The special character plus (+) in the LSD position indicates print with the ribbon reversed if 
plus. 

13. The special character minus (-) in the LSD position indicates print with the ribbon reversed if 
minus. 

14. The character I indicates "Ignore digit". 

15. The letter S indicates allow reverse entry. 

Items 2, 3, 6, 7, and 8 above are counted in the length of the data item. 

Alpha PICTURES may appear as X (integer) where the integer may have a value of 1-99. This is also 
true for numerics, 9 (integer). Likewise, the Z code can be Z (integer). 
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This example illustrates the coding of the PICTURE clause. 



Example: 



DATA 

0000000377431334 

0000000008970045 

NAME 

CUSTOMER 

0000000004891723 

0000000000012345 



PICTURE 

J999,99,9999 
ZZZJZZZ 

xxxx 

X(8) 

$ZZZ,ZZZ.99 

999999 



PRINTED OUTPUT 

377 43 1334 
897 45 

NAME 

CUSTOMER 
$48,917.23 
012345 



5-6 



ACCEPT 



SPECIAL HARDWARE NAMES FOR BASIC CONSTRUCTS 

ACCUMULATOR Refers to a special numeric word. 

(ACCUM) 

KEYBOARD Refers to entry of data through the KEYBOARD, printing is not provided. 

KEYBOARD-PRNTR Refers to entry of data through the KEYBOARD, printing is provided. 

KEYS Refers to non-entry of data through the KEYBOARD. 

PRNTR Refers to printing of data. 

PROCEDURAL CONSTRUCTS 

Since the compiler provides constructs for use with all the standard firmware sets, and programs utilize 
only a single firmware set; the constructs are categorized by firmware type. These are: 

Part A Basic constructs 

Part B Paper Tape I/O constructs 

Part C 80-Column Card I/O constructs 

Part D Data Communications constructs 

Part E Check Digit constructs 

Part F Sterling capabilities 

Part G TC 700 constructs 

It then becomes the programmers responsibility to utilize the "PARTS" of the procedural constructs 
which apply to the particular problem. For example, a program requiring 80-column card I/O would 
apply the constructs discussed in Parts A, C. 

PART A: BASIC VERBS AND CONSTRUCTS 

This part of the Procedural Constructs discusses the L/TC COBOL constructs which apply to any of the 
available firmware sets. 

Accept 

The use of this construct is to allow entry of alpha or numeric data through the appropriate keyboard. 

The ACCEPT verb has six options: 
OPTION 1 







_ 


ACCEPT alpha-data-name 


FROM 


| KEYBOARD \ 
|KEYBOARD-PRNTR I 





Option 1 is used to ACCEPT alpha data into memory from the alpha keyboard. The number of 
characters ACCEPTED is equal to the PICTURE size. The ACCUMULATOR is not disturbed. 
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ACCEPT 



Example: 



i i i 



-U4 W- 



U4 I2i Itt 136 140 144 148 152 lit 160 164 



AQCE.RT, REMARKS PROM KEYfiaARn-PflNTR. i 



OPTION 2 



ACCEPT integer CHARACTERS [ FROM KEYBOARD-PRNTR] 



Option 2 is used to type integer number of characters from the alpha keyboard. The typed data is not 
stored in memory. The integer may range between 1 and 99, inclusive. 

The ACCUMULATOR is not disturbed. 



Example 

10 1 i L 



I I I 



I I I I I I I I I I I I I I I I I I I I I I I I I I I I I I I I I I I I I 



I I I 



ACCEPT, ft CHARACTERS. .F.ftflM K.E.Y.fttaAftfti-RRNT.Ri. n , i 



1 1 i 



i. i i i i i i 



i i i i i i i j i i i i i i i > ' i 



■ i i i i i i i i i t i 



OPTION 3 



ACCEPT numeric-data-name 



FROM 



| KEYBOARD 
[ KEYBOARD-PRNTR 



Option 3 is used to ACCEPT numeric data through the numeric keyboard. The decimal key factor is 
provided by the FORMAT or PICTURE clause associated with the numeric data-name. The Reverse 
entry (negative number) key, C key, and M key are activated by the appropriate FORMAT symbols. The 
Reverse entry key can be activated by the PICTURE symbol S. 

The indexed data will be contained in memory and the ACCUMULATOR. 



Example: 

to6_J 



i i i i i i i i i i i i i i i i i i i i i i ' I I i i i i i i I I I I i 



07 I 



ACGE.RT. &TR-HUM frRflM iKEY.BflARft-PfiNTiR ,., , , 



OPTION 4 



ACCEPT INTO ACCUMULATOR data-name 



FROM ( KEYBOARD 
^^^ \ KEYBOARD-PRNTR 



Option 4 functions the same as option 3 except the indexed data is not stored in memory and remains 
in the ACCUMULATOR. 
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Example: 



j_l 



i i i i i i i i i 



OPTION 5 



ACCEPT INTO ACCUMULATOR FROM KEYBOARD 



Option 5 is used to ACCEPT a maximum of 15 numeric digits into the ACCUMULATOR from the 
numeric keyboard. 



Example: 



1 7 > 



i • 



i i i i i i i i i 



i i i i i i i i i i i i i 



i i i i i i i i i i i i i i i i i i i 
ACCEPT IMT0 AlCUMULATflR FROM KEYBOARD., i , , , , , 



Note 

When accepting a numeric data-name from the keyboard and the keyboard mode is to be terminated by 
depression of a PK key, care must be taken not to use a PK which is programed with a GO TO or a 
PERFORM. Incorrect results will occur unless the ACCUMULATOR is being addressed (as in Option 1 
or 4). That is, the GO TO or PERFORM will cause program control to be transferred before the data is 
placed into the memory location specified by the data-name. 

OPTION 6 



ACCEPT FROM KEYS 



Option 6 will halt machine operation until a PK or OCK selection is made. No data (alpha or numeric) 
may be entered. This construct will generally appear after the ENABLE statement. 



Example: 

1 3 I 



' I I I l I I I I I I I I I I I 



I'll 



'I''' 



1 4 I 



mftLE. PKI, ,P,KA, PK6. 



' i i i i 



ii 



' i '' * ' ' i 



I 5 i 



^GfcRT, F.R0M, KEYS 



'i «i i i i i i i i I i i i i i i i i 



i i i i i i i i i i i i i 



In the above example, the machine will halt with PK 1,4, and 6 enabled. 

Add 

The ADD verb will algebraically add two numeric data items. Refer to page 6-6 for a discussion of 
arithmetic. 

There are 7 options. 
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OPTION 1 



ADD 



I numeric-data-name- 1 



j integ 



;er 



TO numeric-data-name-2 [ON SIZE ERROR statements] 



If option 1 is used, the two operands will be added and the sum stored in the second operand. 
Automatic decimal alignment does occur. The ACCUMULATOR contains operand 1 after execution. See 
Page 6-6 for an explanation of ON SIZE ERROR. 



Example: 

4 6 17 18 



n 12 



_UA- 



i;o a±_ 



_m_ 



J32_ 



136 



UP 



Oil. 



-li? IS2_ 



J«_ 



160 



01 I 



i i I 



2 I 



i i i I l I l i I i I 1 I 1 l_l I I 1_I__1 — I I I — i — 1—1 — I — I — I I I — I — L_ I — 1—1 — I — 1—1 — I 1 I I 

AD.D, ■IN.V.-.TflT. .Tfll 6RAND-T0T, AN. S.I&E. .ERROR 

i i i G0 Ti0 &1H1I iFiTTiMCSDEi"! i.i ■ i i_j i i i i i i i i i l__i_j i i i i i i i i i 



OPTION 2 



. ^^ I numeric-data-name- 11 

ADD { \ numeric- 

I integer J 

[ON SIZE ERROR statements] 



data-name-2 GIVING numeric-data-name-3 [ ROUNDED ] 



Option 2 will add the first operand to the second operand, storing the sum in the third operand. The 
sum is decimally aligned according to the PIC/FMT of numeric-data-name-3. ROUNDED generates 
correct results only when numeric-data-name-3 has fewer decimal places than the other operands. 

The ACCUMULATOR and numeric-data-name-3 contain identical values after option 2 is executed. 

See page 6-6 for an explanation of ON SIZE ERROR. 

Example: 



4 6 7 > 



_LLli 



J14_ 



l?o 



124 128_ 



1 32 |3* [40 [44 146 152 



_!*_ 



I 
[OIL 



-L- I I 



A.DD, ,li 4i | 1.NiC,RE.M-,N,UiH ,ftl .V.IiKfe, NEW,- XMdREM . i ■ i ■ ■ 



! 

OPTION 3 



ADD ACCUMULATOR TO numeric-data-name [ON SIZE ERROR statements] 



Option 3 will add the ACCUMULATOR to the specified numeric-data-name, storing the sum in the 
numeric data-name. The ACCUMULATOR remains unchanged. Automatic decimal alignment does not 



occur. 



See page 6-6 for an explanation of ON SIZE ERROR. 
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OPTION 4 



ADD ACCUMULATOR numeric-data-name- 1 GIVING numeric-data-name-2 ROUNDED 



[ON SIZE ERROR statements] 






] 



Option 4 will add the ACCUMULATOR and specified numeric-data-name, storing the result in 
numeric-data-name-2. The sum is decimally aligned to numeric-data-name-2. 

ROUNDED generates correct results only when numeric-data-name- 1 has more decimal places than 
numeric-data-name-2. 

The ACCUMULATOR and the third operand contain identical results after execution of Option 4. 

See page 6-6 for an explanation of ON SIZE ERROR. 

Example: 



i i i 



i < i i i i i i i i i i i i i i i t i i i i i i i i i i i i i i i i i i i i i ■ i i i i i i ■■ ■ i i i i i 
ADD, ACGUIlULATaR T0TAL fal.V.INS 6RAND- TOTAL 



i i I i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i 



OPTION 5 



ADD J numeric -d at a-name| TO ACCUMULATOR |~ON SIZE ERROR statements! 
I integer I <- -I 



Option 5 provides for adding operand 1 to the ACCUMULATOR. The sum is stored in the 
ACCUMULATOR. Automatic decimal alignment does not occur. 

See page 6-6 for an explanation of ON SIZE ERROR. 

OPTION 6 



ADD J ni^nerio-data-name-1 1 ACCUMULAT0R GIVING numeric-data-name-2 [ ROUNDED 1 

| integer J ' ■ 

[ON SIZE ERROR statements] 



Option 6 will add operand 1 to the ACCUMULATOR and store the sum in the third operand. The sum 
is decimally aligned to numeric-data-name-2. 

ROUNDED generates correct results only when numeric-data-name -2 contains more decimal positions 
than the first operand. 

The ACCUMULATOR and third operand contain identical values after execution of Option 6. 
See page 6-6 for an explanation of ON SIZE ERROR. 
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OPTION 7 


ADD digit TO ACCUMULATOR (Integer) [ON SIZE ERROR statements] 



If Option 7 is used the "digit" will be added to the "integer" position of the ACCUMULATOR. The 
digit may be one of 1-9, while the integer may be one of 1-15. 

Example: 



iu_ 



i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i 



07 
8 



AnD, ,1, Tfl ACJUmilATAMAY. 



j i i i i i i i i i i i i i i i i i i i i i i i i i i i i i 



i i i 



i i i i i i i i i i i i i i i i i i 



' ' i i i i i i i i i i i i i i i i i i i i i i i i i i 



If in the above example the ACCUMULATOR contained 000000000054321 prior to execution, the 
ACCUMULATOR will contain 000000000055321 after execution. 

Advance 

The use of this verb is to space the forms in the forms handler. 

In the constructs if LEFT, RIGHT or BOTH is not specified, LEFT is assumed. 

There are 2 options: 
OPTION 1 



ADVANCE 



(~ LEFT ' 
RIGHT 
BOTH , 



integer LINES 



INDEXED BY 



ACCUMULATOR \ 
numeric-data-name I 



This option will ADVANCE the selected platen integer number of lines. The integer may not be zero. 

If the INDEXED BY clause is used, the number of lines advanced will be equal to the sum of the 
integer and second operand. There is no effect upon the ACCUMULATOR unless the INDEXED BY 
clause is used. With this clause the ACCUMULATOR will contain the value of the second operand. 



Example: 



J l_l L_l I I I I I I I I I— I I I I I I I I 1_1 L_l I I I 



I I I I I I I I I I I I I I I I 



1 I 



I I 



■ ^QVAMCE. .1. LIME. 



i i i ' i i i i i i i i i i i i i i i i i i i i i i i i i 



OPTION 2 



ADVANCE 



(LEFT ' 



RIGHT 



[BOTH ) 



I TQ Special-name I 
( TO integer LINE j 



INDEXED BY 



ACCUMULATOR 
(numeric-data-name , 
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ALARM 



CLOSE 



DISPLAY 



Option 2 will ADVANCE the platen TO the selected line. Special names are discussed On page 4-2. 

If the INDEXED BY clause is utilized, the platen will advance TO the sum of the integer and the 
second operand. There is no effect upon the ACCUMULATOR unless the INDEXED BY clause is used. 
With this clause the ACCUMULATOR will contain the value of the second operand. 



Example: 



1 1 i 



J 1_L 



. ADVANCE . R l frHT . , Tfl LI NE- PA R . JN DEXEA fly. ACaJMUl ATfrft., 



Alarm 

The ALARM verb will ring the alarm once. 
The construct is: 



ALARM 



The ACCUMULATOR is undisturbed. 
Close Forms Handler 

The use of this construct is to provide for closing the forms handler. 
The construct is: 



CLOSE TRANSPORT 



The forms handler is automatically closed under the following circumstances: 

1. The execution of a DISPLAY construct. 

2. The ACCEPTING of alpha data through the keyboard. 

Display 

The use of this verb is to provide for printing of data from memory. 
There are 5 options. 
OPTION 1 



( alpha-data-name 



BSELAV KIT [ffiQNPRNTR] 
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DISPLAY 



Option 1 will print the contents of the specified alpha-data-name beginning at the current print ball 
position. A maximum of 99 characters can be DISPLAYED by the DISPLAY "alpha-literal" clause. The 
ACCUMULATOR is undisturbed. 



Example 

1 S I 



16 I 



, i l I I I I I I i I l I I I l I I I I I I 1 1_1 _L_ L I I I II I— I I l _l I I I 

, , , IdJ&.RL AY. ^.UiRTflTAL", URflNi .PiRNiTiR.. 



i i i i i i i i i i i i i i i i i i 



OPTION 2 




Option 2 will DISPLAY upon the printer the indicated character at the current print ball position. If 
the PREVIOUS-RIBBON clause is used the character (or quote) will be printed using the same color 
ribbon as the last DISPLAY. 

The figurative constant QUOTE will DISPLAY a quotation mark. 
The ACCUMULATOR is not affected. 



Example: 



01 i 



04 I 



I 



U llfi- 



iifi \2* li» I" !■»* 140 l< 



148 I M \X> l»g_ 



, i ipiT.S. RLAYi i* ■/,",. ii i. i i i i i i i i i i i i i 

LT.&P.LA.Y flOaTf.... ■■■■■■ i i ■■ . i i ■ i i i i i i i i i i i i i ' 



i i i LL 



UJ 



OPTION 3 



DISPLAY 



( "character" \ j numeric-data-name \ \ NEGATIVE 1 



\ QUOTE j 1 ACCUMULATOR J \ POSITIVE ( 



Option 3 will DISPLAY the chosen character only if the numeric-data-name or ACCUMULATOR is 
NEGATIVE or POSITIVE (as selected). 

The character will be DISPLAYED at the current print ball position. 



Example: 



i <L 



01 > 



12 lit HO lit 128 132 \U 140 144 148 152 [56_ '60 1*4 



I I I 



Jo.?.. I 
OPTION 4 



DJ.S.P.LA.Y, ■»■-!*. l A,GC U ,Mltl,A,TiQR ME&AT.I.VE. i ■ i 



i i i i i iii i i i i i i i i i i i i i i i i i i i i i i i i i i i 



DISPLAY numeric-data-name [ UPON PRNTR ] 
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DIVIDE 



Option 4 will print the contents of the numeric data-name as dictated by the assigned PICTURE. 
Printing is right justified in the field which begins at the current print ball position and extends to the 
right the number of places equal to the number of characters in the PICTURE clause. 

The ACCUMULATOR will contain the printed numeric-data-name. 

Example: 

| i 7 ; J J i i i pIiSiPiLAiYi iT0TiAL. i i i i i i i i i i i i i i i i i i i i i i i i i i i i , i , i , , , , 



OPTION 5 



DISPLAY ACCUMULATOR [(integer)] numeric-data-name [ UPON PRNTR ] 



Option 5 allows for printing all or part of the ACCUMULATOR according to the PICTURE of the 
numeric-data-name. 

The (integer) option will DISPLAY the integer rightmost digits of the ACCUMULATOR. If the (integer) 
is omitted, the ACCUMULATOR will be DISPLAYED as dictated by the PICTURE of the numeric-data- 
name. 

The ACCUMULATOR is unchanged. 

Example: 



09 I 



I I I I I I I I I I I I I I I I I I I I I I I I I l i I I I I I I I I l i i I I I 



I 



' I ' 



MABLAYi ACGtiMULATflR ■IMVr.NUM. 



I I I I I I I I I I I I I I I I I I I I ■! I I I I I 



In the above example if the ACCUMULATOR contained 000000098765321 and INV-NUM was given a 
PICTURE of 999, the printed result would be: 321. 

Divide 

The DIVIDE verb provides the ability to divide. 

The construct is: 



mvmF I n umeric-data-name- 1 1 TMTn / numeric-data-name-2 } f- „ Mr , . . . 

^^ \ integer } ™Q { ACCUMULATOR L^IYING numenc-data-name-3 



[ ROUNDED ] ] [ON SIZE ERROR statements ] 



I 



If both operand 1 and operand 2 have the same sign, the quotient is positive. Unlike signs will generate 
a negative quotient. 
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ENABLE 



Without the GIVING option this construct divides numeric-data-name- 1 into numeric-data-name-2 storing 
the quotient in numeric-data-name-2. 

With the GIVING option the quotient is stored in numeric-data-name-3. 

The ACCUMULATOR will also contain the quotient after execution of the DIVIDE construct. 

See page 6-6 for a discussion of ON SIZE ERROR. 

Automatic decimal alignment is provided if both operands are numeric-data-names. 

Example: 



i 



7 I 



■ " L ' " 

, i i ftliViI 



I I I I I I I I I I I I I I I I I I I I I I I I I 1 



nF, HflURSi .IiMTg MTiLEiS i ■ i i i i ■ ■ i i i ■ 

iGr.VIiMifa MRU flflU N DED. i i i i i 



The remainder is stored in a special memory location. 

See page 6- 26. 

Enable 

The use of the ENABLE verb is to enable selected PK keys at the next keyboard operation. When this 
construct is executed, the selected PK lights will be lit. 

The construct is as follows: 



ENABLE [table-name] PK1 ... PK24 



The table-name option allows for activating multiple PK-TABLES. If only one PK-TABLE is defined in 
the DECLARATIVES, then a table-name need not be coded. If more then one TABLE is utilized, the 
table-name need only be included when the referenced table changes. The number of PK keys vary from 
machine style to machine style. 

This construct is generally used in conjunction with the ACCEPT FROM KEYS construct, as the 
ENABLE construct does not automatically provide for a keyboard halt. 

Attempting to enable a PK greater than the table size, results in a syntax error. 
The ACCUMULATOR is undisturbed. 



Example: 



1 3 i 



4 I 



I 
1 5 I 
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i i i | iii i i i i i i i i i i i i i i i i i i i i i i i i 

: ,NAA» .E, TABLr, ? -, .R K ft P.K1& . I ■ i . i i ■ i ■ ■ ■ ■ i ■ 



Ii^iEiRT, FPflM KEY S i.i miui nni i ii ii 



END-OF-JOB 



EXIT 



GO TO 



IF 



In this example the PK-Table TABL-2 is being referenced. PK 8 and PK 12 will be enabled and the 
machine will halt on a keyboard instruction. Note that TABL-2 need not be used in subsequent 
ENABLE clauses unless another table-name is used in between. 

End-of-Job 

The use of this construct is to notify the compiler that all source statements within a program have 
been read. 

This construct must be the last statement in every program. 



END-OF-JOB. 



Exit 



The use of this construct is to provide the ability to programmatically transfer control from a 
subroutine instead of taking the automatic EXIT provided by the compiler. 



The construct is as follows: 



EXIT. 



Go To 

The use of this construct is to provide an unconditional branch in the sequence of program execution. 
The construct is: 



GO TO paragraph-name. 



The paragraph-name can be any paragraph-name within the PROCEDURE DIVISION, but not a 
procedure (subroutine) name. Caution must be used when GOing TO a paragraph-name within a 
subroutine because if execution continues to the end of the subroutine the automatic subroutine EXIT 
would be executed and incorrect program execution could result. 



This construct has no effect on the ACCUMULATOR. 



Example: 



i « i 



1 7 ' 

— r 



J L_l_ 



I I 



1 ' ' ' ' ' ' ' ' ' I I ' ' I I I I I I I I I ' I I I I I I I I I I I I I I I I I I I 

(tA JJB iT0TALSi-- l RflUiTiT .MB. i l_lj__i_i_u_lj_i ■ , 



if 

The function of this verb is to control the sequence of program execution depending upon the TRUE or 
FALSE value of certain statements. 
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These statements are subdivided into seven major categories: 

1 . relative tests 

2. ACCUMULATOR tests 

3. ZERO tests 

4. forms limit test 

5. ACCUMULATOR flag tests 

6. SWITCH tests 

7. OCK flag tests 

See Execution of CONDITIONAL SENTENCES page 6-2. 

RELATIVE TESTS 

These tests compare data-names and/or literals with regard to their numerical value. 

OPTION 1 



IF 



numeric-data-name- 1 
numeric-literal- 1 

f statements- 1 
NEXT SENTENCE 



' GREATER THAN ( > ) 
LESS THAN ( < ) 

EQUAL TO ( = ) 



IS 



fnumeric-data-name-2 
numeric-literal-2 



THEN 



NOT EQUAL TO (NOT=) 

[_ELSE statements-2 J 



This option compares two numeric items and transfers control according to the TRUE or FALSE 
condition of the option. 

The ACCUMULATOR content is unknown. 



Example: 



I 2 



13 I 



I I I 



I I I 



J L_L_ 



I I I 



I I I I I 



I I I I I I I I I I I I I I I I I I I I M il 



JF, T&TAJL. iL&j ■<. ,MLN,-,flRflE.R .ftfl .Tift .Rl&S.R&TI. 



i ' i i i i i 



i r.F, .SCARF, IS, GREATER .THAN MASTER MifcXT iSiENTiEiNiCiE 



i i ■ i ii 



EL.Sfi AD D 1 1. ,T,fl .SCfflQg fiffl iTTfl .STiAiRTi 



ii i i i 



i i i i 



i i 



i i i i 



i i 



In the first example, program control is transferred to REGRET only if TOTAL is less than 
MIN-ORDER. In the second example, the control is transferred to the next sentence only if SCORE is 
greater than MASTER. If SCORE is equal to MASTER, then 1 will be added to SCORE and control 
transferred to START. 
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OPTION 2 



IF 



T „ (alpha-data-name ) T „ 
IE { . ,. 4 ,[ IS <! 

I non-numenc-literal I 



GREATER THAN 
LESS THAN 
EQUAL TO 
NOT EQUAL TO 



THEN 



{statements- 1 
NEXT SENTENCE 




[ELSE statements-2] 



alpha-data-name 
non-numeric literal 



See page 6-5 for a discussion of non-numeric literals. Program execution continues according to the 
TRUE/FALSE condition of Option 2. 

The alpha data-names must be of equal word length. 

The ACCUMULATOR content is unknown. 
ACCUMULATOR TESTS 

These tests examine the contents of the ACCUMULATOR. 
OPTION 1 



IF ACCUMULATOR (integer- 1) LESS THAN integer-2 THEN 



f statements 



NEXT SENTENCE [ ^^ statements] 



is 



Option 1 will determine if a specific digit of the data in the ACCUMULATOR (specified by integer- 1) 
less than integer-2 and transfer control accordingly. Integer- 1 may be any number from 1-15. Integer-2 
may be any integer from 1 to 9. 

The ACCUMULATOR is undisturbed. 



Example: 



1 9 1 



7 ' 



1 1 



1 1 1 



1 1 ' 1 1 1 1 11 1 1 1 1 1 1 1 1 



1 ' 1 1 1 1 1 



IB ACCUMU LATOR, 1(^) 1 .LB&S, THAN, il. THF.N, 



1 1 1 1 1 1 1 1 1 1 



N EXT. .SENTENCE. F.I A E fifl ,Tfl AT/tfM.i 



1 1 1 1 1 1 1 1 



1 1 1 1 1 1 1 1 1 1 1 1 ■ 1 1 



OPTION 2 



IF SIZE ERROR THEN statements [ ELSE statements] 



Option 2 will test to see if a SIZE ERROR condition exists and transfer control accordingly. A 
discussion of SIZE ERROR may be found on page 6-6. 
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ZERO TESTS 

This category of tests examines a data-name or ACCUMULATOR in regard to a ZERO value. 



IF 



( data-name 



— 1 ACCUMULATOR [ 



1 IS ZERO THEN ! neXtTeNTENCE ! [ELSE statements] 



If the data-name or ACCUMULATOR is ZERO then the statement is TRUE. 



Exam 

\4 6 


P 

7 


le: 
a 


u 


12 


116 


120 124 


128 


|32 


136 140 144 148 


152. 


15* 


160 


r~ ! 




i i 1 


IF, 




JMULAT0R 






68 ,T0 NUCARDi.1 i i 


1 1 1 1 


1 1 1 1 


1 1 1 



FORMS LIMIT TEST 

This test determines if the value of the forms limit register has been reached. 



JF END^F-PAGE THEN {^ SSbBNCe I ISS ""—W 



The above construct will have a TRUE value only on the line advance after the respective count register 
and limit register are equal. At all other line advances the construct will have a FALSE value. 

This construct is used to control the forms in the forms handler. 

The ACCUMULATOR is undisturbed. 

See page 6-27, 6-28. 

Example: 

' i i i i i i i i i i i i i i i i i i i i i i i i i 



T* FMIVflFr.PASK 



i i ' 



i i i i i i i i i 



i i i i i i 



6 T fl NEK-FARM 



i i i i i i i i i i 



EJU&E 



j ■ ■ i i ■ ■ i i i i i i 



i ' ' ' i ' i i i ' ' ' 



i i i i i i 



fifl ,Tfl l,MDEJC-ACCflUNTr NUMBER 



ACCUMULATOR FLAG TESTS 

This category of the IF verb tests the condition of the ACCUMULATOR FLAGS. 
The four ACCUMULATOR FLAGS are: 

1 . NFLAG — negative condition flag 

2. SFLAG - special flag 
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3. CFLAG - per hundred flag 

4. MFLAG - per thousand flag 

The ACCUMULATOR FLAGS are turned ON when: 

1. Whenever the Reverse Entry (NFLAG), C (CFLAG) or M (MFLAG) key is depressed the 
associated ACCUMULATOR FLAG is turned ON. The others are not affected. The desired 
keys must be enabled with the appropriate FORMAT or PICTURE. See ACCEPT Option 3. 

The SFLAG cannot be turned on through keyboard input. 

2. The use of the MOVE verb Option 1. 

3. A code read through external media. 



IF 



j numeric-data-name 1 
\ ACCUMULATOR J 



I NFLAG 
SFLAG 
CFLAG 

MFLAG 



[ else 



statements 



] 



AND 
OR 



/ NFLAG \ 

SFLAG 

CFLAG 

MFLAG 
v / 


.. . . 



THEN 



{statements | 

NEXT SENTENCE J 



If the selected ACCUMULATOR FLAG is ON, the statement will have a TRUE value. With the logical 
connector AND all the specified flags must be ON in order for the statement to be TRUE. The logical 
connector OR will allow the statement to be TRUE whenever only one of the selected flags is ON. OR 
and AND cannot be mixed in the same statement. 



Example: 



1 2 I 



13 I 



J I I 



I I I 



' ' I 



I I 



I I I 1 I I I I I I I I I I I I I I I I I I I I I I I I I I I I I I I I I III 



I I I I 



IF. A&OUMULArr.flR CFLA6 flR MF.LA6 NEXT. ftRNTTENCfi , , , , , , 

i i i EiLSiE fi>0 iTi0 SETiUiPi. i i i l_l-i_i__i_l_l_i__i_j_l_i_j 



SWITCH TESTS 

This category of the IF verb tests to see if any of the eight internal program switches are ON. 
These switches are automatically OFF at the start of every program. 

The program switches are turned ON in two ways: 

1. Move Option 8 page 6-26. 

2. Reading of certain codes through a peripheral device. See appendix A, table A-3. 
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Group A Switches 



SW1 

IF /SW2 
— >SW3 

SW4 



AND 1 
OR ) 



SW1 
SW2 
SW3 



SW4 



THEN 



statements 
NEXT SENTENCE 



[ ELSE statements] 



Group B Switches 



IF 



' SW5 ' 
SW6 
SW7 
SW8 



| AND 
I OR 



SW5 
SW6 

SW7 
SW8 



™ EN InEXt TeNTENCe I ia=5E statements] 



If the selected SWITCH is ON, the statement will have a TRUE value. With the logical operator AND all 
the selected SWITCHES must be ON in order for the statement to be true. The logical operator OR 
requires only that one of the selected switches be ON in order for the statement to be true. Switches 
from GROUP A (SW1, SW2, SW3, SW4) may not be mixed with switches from GROUP B (SW5, SW6, 
SW7, SW8). 

The ACCUMULATOR is undisturbed. 

OPERATION CONTROL KEYS (OCK) FLAG TESTS 

This category of the IF verb enables the programmer to determine if an OCK FLAG is ON. 

Each OCK (1,2,3,4) has an associated OCK FLAG (1,2,3,4). 

The OCK FLAGS may be ON because: 

1. An OCK was depressed to terminate a keyboard entry. In this case the OCK FLAG associated 
with the OCK will be turned ON, all other OCK FLAGS are turned OFF. 

If the keyboard entry was terminated by a PK (program key) all OCK FLAGS are turned 
OFF. 

2. The MOVE verb Option 9. 

3. A code read from external media. See Appendix A, table A-2. 

The construct is as follows: 



[ockT 

if |0CK2 

^ QCK3 

OCK4 



(OCKI 
(AND | I OCK2 
I OR J |OCK3 
OCK4 



THEN 



i statements 



\ NEXT SENTENCE } 



I [ELSE statements] 
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If the specified OCK FLAG is ON, the statement is TRUE. The logical operator AND requires that all 
the specified OCK FLAGS be ON in order for the statement to be TRUE. If anyof the specified OCK 
FLAGS are ON when OR is used, the statement will be TRUE. 

AND and OR cannot be mixed in the same statements. 

The ACCUMULATOR is undisturbed. 

Example: 



1 7 ' 



i i i 



i i i i i i i i i i i i i i i i i i i 



i i ' i i i i i i i i i i i i i i i i i i i i 



i i i 



IF, flCK,!, ,T,UEI 



6 fl m rw iB- i N. 



I I I I 



Move 

The use of this verb is to transfer data from one area of memory to another area of memory, to load 
data into memory locations, to set forms control Limit and Count Registers, to turn switches and flags 
ON and OFF and to isolate parts of words through shifting the ACCUMULATOR. 

This construct has twelve options. 

OPTION 1 



A/frwc (alpha-data-name ) 
MOVE < . Vi , TO alpha-data-name 

1 non-numeric literal J — 



Option 1 will transfer operand 1 to operand 2. This first operand must be less than or equal to the 
second operand in regard to word size. 

The ACCUMULATOR content is unknown after execution of option 1 . 

Example: 

4 6 I? |» II |n 116 120 124 lit 132 136 140 144 148 152 06 1*0 164_ 



wa 



01 ! 



I i I 



2 I 



V.E, ■R.EMAflKS.-.i. Xfl REMARKS.- ,£,., 



■ ' ' ' i i i I i I I i i i — i I i 



i i i i i i i i i. i i i i i i i i i i i i i i i i i i I I i i i i i i I i i i i i i i i 



OPTION 2 



MOVE t 



I numeric-data-name 
I integer 
ZERO 



TO numeric-data-name 






ACCUMULATOR 



Option 2 will MOVE numeric-data from operand 1 to a numeric-data-name. Operand 1 is not changed. 

The NFLAG, SFLAG, CFLAG and MFLAG conditions associated with operand 1 will also be MOVED 
to operand 2. 
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With the integer and ZERO clauses the FLAG conditions are OFF. 

The ACCUMULATOR contains the prior contents of operand 1 (including FLAG conditions if the 
CFLAG was on in Operand 1 , it is now on in the ACCUM). 



Example: 



03 



Li. 



M- 



' I ■ 



I I I 



I I I I I I I I I I t I I I I I t I I ■ I I I I I I I I I I I I 1 I I I I I I I I I I I I 



I 1 I I I I I I I I I I I I I I I I I I 1 I I I I I I I I I I I I I I I I I I 1 I I I I I I I I I I I I 



MUE. 



i i i TUflViE i 



.1 1 Tig i r^ a u^T iRRi - 1 , i i i i , ■ i i , i ■ i i i i i i ! i i i i , i i i i i i i i i i i 



OPTION 3 



numeric-data-name 
MOVE { integer 
ZERO 



TO ACCUMULATOR 



Option 3 will MOVE operand 1 to the ACCUMULATOR. Operand 1 is not changed. 

FLAG conditions are MOVED. 

With the integer and ZERO clauses all ACCUMULATOR FLAGS are OFF. 

Example: 



1 5 i 



T" 
6 I 



J L_J_ 



ji& 



iii i 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 



ViE i&EiR0 Tift A&GUiMUiLiATi&Ri.i i i i i , i i i i i i i i i i I I i i i i i i i 



This will cause the ACCUMULATOR to be cleared. 
OPTION 4 




Option 4 will insert the digit (0-9) into the integer (1-15 right to left) position of the ACCUMULATOR. 

The FLAG conditions are not changed. 
Example: 



D 3 I 



10 4 I 



I 

OPTION 5 



i_i I i i 

i i p a 



i 1 1 i 1 1 1 1 i i 1 1 i- 1 i i i 1 1 i i 1 1 1 i ■• i 1 1 1 1 i 1 1 1 i 1 1 1 1 i 1 1 1 1 1 1 



V.F, ,7, T,fl .ACCUMUL AT i fl R M i ) i. Hnn 



MOVE ACCUMULATOR (integer- 1 [integer-2] ) JO { ACCUMULATOR [ (integer * 3) ] I [ WITH SIGN 1 
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Option 5 is used to isolate digits in the ACCUMULATOR as specified below and transfer the result to 
data-name if indicated. 

1. If "integer- 1" is used by itself, the computer will right justify the "integer- 1" digit of the 
ACCUMULATOR. 



Example: 



1 6 I 



I i I I I I I I I I I I I I I I I I I I I I I I I I ' ' ' ' I ' ' ' ' 1 ' I I I I I I I I 

, , , Mfl\Z,E ACCUMliLATifliR ,(,5V Tffl P.Rfin-CfiDE. ■ nn 



If the previous contents of the ACCUMULATOR was 000000000123456, the execution of the 
construct in this example would result in data-name PROD-CODE having the value 
000000000000012. 
2. If "integer-1" and "integer-3" are used, the computer will isolate the "integer- 1" digit into the 
"integer-3" position of the ACCUMULATOR. 



Example: 



i a 



J L_L 



I I I 



^wa 



1 1 1 i 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 

V.E ACCUhUiLATfliR ,( fc,^ T& ACCUMULATOR .C.3i> i> ■ i 



If the previous contents of the ACCUMULATOR was 000000001234567, the execution of the 
construct in this example would cause the ACCUMULATOR to have the value 
000000000000200. 
3. If "integer-1" and "integer-2" are used, the computer will isolate and right justify "integer-2" 
digits of the ACCUMULATOR starting at the "integer-1" position. 



Example: 



2 



3 I 



i I 



-1 I L 



_l J I I I I 1 I | Ill I I I I I I I I I I I I I I I I I I I I I 1—1—1 1— I 1 I I I 

■ , , haVEi ACCUMULATOR ,(&, &), T& .I.TEM-CflDE ■ 



j_j i i i i i i i i i 



i i i i i i i i ■ i i i ' i i i i ' i ' i i ' ' i i i ' ' i ' 'I i i 



If the previous contents of the ACCUMULATOR was 000000123456789, the execution of the 
construct in this example would cause data-name ITEM-CODE to have as its contents 
000000000000023. 
4. If all 3 integer options are used, the computer will isolate the first integer-2 digits to the right 
of and starting at integer-1 and position them starting at and to the right of integer-3. 



Example: 



04 I 



5 



I I I 



I I I I I I I I I I I I I I I I I I I I . I I I I I I I I I I I I I I I I I I I I I 

fw,E ACCUftll ATM .dlQ &h Tfl ACairtlLATflRCT).., 



. i i i i i i i i 



If the previous contents of the ACCUMULATOR was 003775076951456, the execution of the 
construct in this example would cause the accumulator to contain 000000005076900. 

The ranges for all three integers is 1 through 15 unless the WITH SIGN option is used, in which case the 
range is 1 through 16. 
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OPTION 6 



MOVE REMAINDER TO 


(accumulator ] 

1 numeric-data-name J 



Option 6 will transfer the DIVISION REMAINDER to operand 2. 
Example: 



i 

07 1 

.. ! 


■ ■■I i i i i i i i i i i i i iii i i i i i i i i i i i i i i 

, , . haviE. REMAINDER ,T,0 ACiGUMULATGJR. 



OPTION 7 



MOVE 



/ZERO l T0 - 



1 
ONE 



NFLAG 
SFLAG 
CFLAG 

MFLAG 






NFLAG 
SFLAG 
CFLAG 



l-V 



MFLAG 



Option 7 is used to turn ON and OFF the ACCUMULATOR FLAGS. The MOVE ZERO clause will turn 
the specified FLAG OFF, while MOVE ONE will turn the specified FLAG ON. 

Example: 

"Mil i ' l'i iii i i i i i i i i i i i i i i i i i i — i_i — i i i i i i i i i i i i i i i i i i i i — i i i i 



!ps 



o a i 



I i i 



ViE, 0ME ,T,0 NFLAfe, CFibAfo. 



j_ i — i i i i i i i i i i i i i i i i'iii i i i i 



OPTION 8 
Group A 





f ± 1 


f SWl "J 




f SWl "I 


-i 




MOVE - 


ZERO 
1 


. JO - 


SW2 1 
SW3 ( 


< 


SW2 1 
SW3 j 








ONE 
v / 




SW4 J 




SW4J 







Group B 





f ?- 1 


I 


[sws^ 


Yswsl 


- 




MOVE ' 

.,„-—,■■„■■■ 


ZERO 

1 
ONE ; 


rlQ 


1 SW6 1 
j SW7 [ 

(SW8 j 


1 SW6 1 
j SW7 j 
[SW8 j 







Option 8 will turn ON or OFF the internal program switches specified. 
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The MOVE ZERO clause will turn the specified FLAG OFF, while MOVE ONE will turn the specified 
FLAG ON. 

Switches from Group A (SW1, SW2, SW3, SW4) cannot be mixed from Group B (SW5, SW6, SW7, 
SW8). 

The ACCUMULATOR is not changed. 
Example: 



iii i ii 



I i i i i i i 



ii i i i i i i j i i i i i i i i i i i — i i i i i i i i i 



1 I 



I I 



Tig iShWS iSAMTi.. i i i i i i i i i i i i i i i i i i i i i 



It is incorrect to combine switches from different groups (1-4, 5-8) in a single clause. For example, SW1 
and SW6 may not appear in the same MOVE clause. 
OPTION 9 




Option 9 is used to turn ON or OFF the specified OCK FLAG. 
The MOVE ZERO clause will turn OFF the specified OCK FLAG(s). 
The MOVE ONE clause will turn ON the specified OCK FLAG(s). 
The ACCUMULATOR is undisturbed. 



Example: 



J 1_L 



pern 



J_l i i i I I I I I I I I I I I L_l — l_J — I I I 



I I I I I I I I I I I I I I I 



I I I 



E 1 1 1 Ti0 i0CiKAi. i i i i i i i i i i i i i i i i i i i i i i i 



OPTION 10 



MOVE 



special-name 
integer 



TO 



| LEFT 1 
| RIGHT) 



LIMIT-REG 



INDEXED BY 



( ACCUMULATOR 
I numeric-data-name 



Option 10 will insert the value of the first operand into the selected FORMS LIMIT REGISTER. The 
value cannot exceed 255. 

If the INDEXED BY option is used, the value inserted will be the sum of the first operand and the 
selected INDEXED BY option. 

There is no effect upon the ACCUMULATOR unless the INDEXED BY option is utilized, in which case 
the ACCUMULATOR will contain the value of the INDEXED BY operand. 
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OPTION 11 



MOVE j social-name j {jffif | CQUNT , REG 
I integer ) — [ RIGHT J 



INDEXED BY 



(ACCUMULATOR j 
| numeric-da ta-namej 



Option 1 1 is used to load a value in the respective FORMS COUNT -REG. The value cannot exceed 255. 

If RIGHT or LEFT is not specified, LEFT is assumed. 

When the INDEXED BY option is used, the value loaded will be equal to operand 1 plus the value of 
the INDEXED BY operand. 

There is no effect upon the ACCUMULATOR unless the INDEXED BY option is used, in which case 
the ACCUMULATOR will contain the value of the INDEXED BY operand. 



Example: 



o» 



1 I 



I I I 



I I I I I I I I I I I I I I I I J I I I I I I I I I 



-1— 1— L 



m 



' ' ' 



i ' 1 1 1 

i ' ' 1 1 1 i ' i ' i i i ' 1 1 1 1 1 i 1 1 1 1 1 1 1 
■ i i i ' ' 'I 1 1 ' ' 1 1 1 1 ' ' i ' i 1 1 i 1 1 1 i i 1 1 



VE ,1 O ,Tfl RIGHT, CflUNTr,ftEfa. 



OPTION 12 



MOVE 



ZERO 



ZEROES 



ZEROS 



' X_Q group-name 



Option 1 2 is used to clear all the data items in the group specified by the group name. 

The group name must be declared in the WORKING-STORAGE section. In order to conserve memory 
this construct should not be used unless the data items within the group occupy more than 6 words. 

The ACCUMULATOR is undisturbed. 

Example: 



1 2 I 

— r 

13 i 



i ' 



i i i 



i i i i i i i i i i i i ■ i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i 



i i 



JgViE JSER0ES T fl ALib-i T fliTAL&.i 



i i i i i i i i i i i i i i i i i 



i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i 
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MULTIPLY 



NO-OP 



Multiply 

The MULTIPLY verb functions to MULTIPLY two numeric-data-items. 

The construct is as follows: 



MULTIPLY 



( numeric-data-name- 1 ] 



( numeric-data-nam e-2 \ 
ACCUMULATOR 



l\ B Y f 
\ numeric literal J I 

[ ROUNDED] [ON SIZE ERROR statements] 



[ GIVING numeric-data-name-3] 



Operand 1 is MULTIPLIED BY operand 2. The product is stored in operand 2 unless the GIVING 
option is specified; in which case the product is stored in numeric-data-name-3. 

Automatic decimal alignment is provided if both operand 1 and operand 2 are numeric-data-names. 
MULTIPLY is the only arithmetic verb which allows ROUNDING without the GIVING option. 

See page 6-6 for a discussion of SIZE ERROR, ROUNDED and decimal alignment. 

Example: 

01 i 



02 I 



il l i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i — i i i — i i i i i — i i i i 

, , klL,T,IP,LY A PLY, TQTA.L, fiI,V,IM& P.I ,NAL- RESULT, ROUNDED., , 



No-Op 

The use of this verb is to allow insertion of a NO OPERATION machine code. 
The construct is: 



NO-OP 



Program execution continues sequentially uninterrupted. 10 milliseconds are expended. 
Example: 



04 I 



A_4_ 



ii i i i i i i i i i i i i i i i i i i i i i i i I i i i — i_j — l I l I I I I i i 



I I 



J.&F. FAR P.K- .TABLE P.K- SELECT.. 



i i i i i i i i i i . i i 



i i 






i i i i i i . i i i i . i i i i i i i i i i i i i i i i i i i i i i I i i i i 

iTflTAiL~i0iUiTi. i i i i i i i i i i i i i i i i i i 



As the example may imply, the most common use of the NO-OP is that of a "filler" in a PK Table in 
the DECLARATIVES. 
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NOTE 
OPEN 



Note 



The use of this construct is to allow the programmer to write explanatory statements in his program 
which are printed on the program listing, but do not generate object code. 



This construct has two options: 



OPTION 1 



NOTE sentence. 



Option 1 is NOTE followed by any comment and terminated by the next period. 
Option 1 is coded anywhere in Area B of the coding form. 

Example: 

i i i I i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i [ i i i i i 



i i i 



SJQTiE , THIS, SENTENCE, ,LSi FAR DBCAJMEMTATiI PM 0NL.Y, , , , . 
AND MUST, BE, TERMINATED BY, A, PERIOD., ,,,,,,,, 



OPTION 2 



NOTE, paragraph 



Option 2 is NOTE followed by any comments or sentences or text. The documentation is terminated by 
the next paragraph name, and its coding must start in column 8 of the coding form. 



Example: 



1 3 I 



1 4 I 



MATE., THJ.S ALLBWS, THE, .IM&ERXIflN flF. AN EMT.IftE 



j_j — i — i i i i i i i i i i i i i , i i , i i i i i i i i i , , i i i i i i i i i i i 



i i i 



.iiii 



j_j 



PARAGRAPH,. , JJj M1IL.L, END WITH, THE NEXT, 



ii 



PARAGRAPH. AiAMEu 



i i i i i i i i i i i i , i i i i i i i i i i i i ,, i i 



Open 

This construct provides for the opening of the forms handler. 
The construct is as follows: 



OPEN TRANSPORT TO 



{integer 
special- 



name 



INDEXED BY ( ACCUMULATOR | 
Inumeric-data-nameJ 



The forms handler will be opened. 
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PERFORM 



POSITION 



If the integer/special-name option is used, the forms handler will stay open until a print or programed 
close is made, at which time .the left platen will advance the specified number of lines. 

If the INDEXED BY option is used, the specified value will be added to the number of lines advanced. 

There is no effect upon the ACCUMULATOR unless the INDEXED BY option is used. With that option 

the ACCUMULATOR is unknown. 

Example: 



i i 



i i i 



ii i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i 

fiSiPlEiNi iFiflftflHSi iHiAiNDiL&ft iliQ«i i i i i i i i i i i i i i i i i i i i i i i i i 



Perform 

The use of this verb is to depart from the normal sequence of program execution in order to execute a 
procedure which was declared as a subroutine in the DECLARATIVES. When the subroutine execution 
is complete, program control is automatically returned to the statement after the PERFORM statement. 

See EXIT page 6-17. 
The construct is as follows: 



PERFORM procedure-name 



Only subroutines are allowed to be PERFORMed. Attempting to PERFORM a paragraph-name will 
result in an error at compilation time. 

Subroutines may be PERFORMed from within a subroutine. However, a hardware limit of four (4) is in 
effect. Nested subroutines are EXITed in reverse sequence to that in which they were PERFORMed. It 
is the programmers responsibility not to nest more than four subroutines. 

The ACCUMULATOR is undisturbed. 



Example: 



1 7 



i ' i iii i i i i i I i i i i i i i i i i i i i i i 



i i i i I i i i i i I i i i i i 



ii 



RBRF0RM i Fl NAL-i T flTALS-ftflUmiiNE. 



i i i i i i i i i i i i ii 



i i i 



J_l_ 



I I I I i I I I I I I I I I I I I I I I I I I I I I I I I I I I 1 I I I I I I I I I I I I I I I I I 



Position 

The POSITION verb allows the programmer to position the print ball. 



POSITION) tq (integer 
POS j — I special-name 



INDEXED BY 



ACCUMULATOR 
numeric-data-name 



The print positions are numbered 1 through 150 left to right (some machine styles allow 1-255). 
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RED-RIBBON 



STOP RUN 



SUBTRACT 



This construct has no effect on the ACCUMULATOR unless the INDEXED BY option is used, in which 
case the ACCUMULATOR will contain the value of the INDEXED BY operand. 

Example: 

i 6_L.ll ll|l2 lit 120 124 128 1 32 136 J40 |_U |48 \S2 156 160 |64_ 






01 > 



_i_L 



'AS, T,fl RRINT.-flgR. 



j i i i_i i i i i i i i i i \—\ i i i i < i i i i i i i i i i i i i i 



02 ' 1 I i i i — | i i i i i i i i i i i i" i i i i i i i i i i i i i i i iii 



Red-Ribbon 

The use of this construct is to provide for activating the red-ribbon feature of the machine for the next 
DISPLAY or ACCEPT statement. 

The construct is as follows: 



RED-RIBBON 



The construct is in effect only for the next DISPLAY or ACCEPT statement. 



Example: 



05 ' 



0_4_ 



07 
06 



I I I 



I I 



I I I 



I I I 



Jbbdc 
-hiiSiP 

1 1 i 



i i i i i i i i i i i i i i i i i i i t, i i i i i i 



BLBBCttL 



SP L / Wi fE RRgR' 



i — i — i — i ' i ' 

i i i ' ' i ' ' i i i i ' ' i i i i i i i i i i i i i i i i 

i>i i i ' i ' i ' ' i i i i i i i i i 



i i i i i i i i i i i i i i i i i i i i i i i i i i 



i i 



.iiiiii i_ 



Stop Run 

The use of this construct is to provide the ability to end execution of a job. The execution of this verb 
will cause the machine to return to Ready Mode. 

The construct is as follows: 



STOP RUN 



It is important to note that there must be at least one STOP RUN in every program, otherwise warning 

message will appear. 

Subtract 

The use of this construct is to provide for subtracting of one numeric item from another. 
OPTION 1 



| numeric-data-name- 1 
\ integer 



^t,™, f numeric-data-name-2 \ 

E^ (accumulator I 



[GIVING numeric-data-name-3 [ ROUNDED ]] [ON SIZE ERROR statements] 



Option 1 will SUBTRACT operand 1 from operand 2 storing the difference in operand 2. 
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If the GIVING option is used, the difference is stored in numeric-data-name-3. 

Automatic decimal alignment is provided if both operands are numeric-data-names. ROUNDED is only 
valid with the GIVING option and will produce correct results only when the third operand has fewer 
decimal places than other two operands. 

OPTION 2 



SUBTRACT ACCUMULATOR FROM numeric-data-name- 1 [ GIVING numeric-data-name-2 



[ ROUNDED ]] [ON SIZE ERROR statements] 



Option 2 will SUBTRACT the ACCUMULATOR from the specified numeric-data-name. Without the 
GIVING option the remainder is 'stored in the second operand. With the GIVING option the remainder 
is stored in the third operand. 

See page 6-6 for a discussion of automatic decimal alignment, ROUNDED and ON SIZE ERROR. 
Example: 



1 S l 



iii 'ii i i i i i i i i i iii i i i i i i i i i 



16 I 



SUBTRACT 3. fiRBM ACCUMULATOR i d 1 5 ) 



i i i i i i i 



i i i i i i ' ' i 



W ' 



_1_L 



m &1SE EftftflR ALARM., ■ ■ i i i , i ■ . i , ■ ■ i i 



i i I i i i i i i 



Use 



The use of the verb is to specify procedures or to define the program key table (PK-table). The USE 
verb can only be contained in the DECLARATIVES. 
OPTION 1 



USE FOR PK-TABLE table-name 



It is important to note that if they are used, all PK tables must be declared before subroutines are 

declared. 

The following constructs may be coded as PK table entries: 



1. 


ADVANCE 


without INDEXED BY clause. 


2. 


DISPLAY 


options 2 and 3. 


3. 


GOTO 




4. 


MOVE 


options 7 through 9 


5. 


NO-OP 




6. 


OPEN HANDLER 


without INDEXED BY clause. 


7. 


PERFORM 




8. 


POSITION TO 


without INDEXED BY clause. 


9. 


RED-RIBBON 
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PK table entries must appear in the following order: 

Entry for PK 1 
Entry for PK 2 
Entry for PK 3 
Entry for PK 4 
Entry for PK 5 
Entry for PK 6 
Entry for PK 7 
Entry for PK 8 
Entry for PK 9 
Entry for PK 10 
Entry for PK 1 1 
Entry for PK 1 2 
Entry for PK 13 
Entry for PK 14 
Entry for PK 15 

Entry for PK 16 
Entry for PK 17 
Entry for PK 18 
Entry for PK 19 
Entry for PK 20 
Entry for PK 21 
Entry for PK 22 
Entry for PK 23 
Entry for PK 24 

If an entry is made for a PK, all PK's with numbers less than the chosen PK must be represented in the 
table. 
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Example: 

Provide table entries for PK 1, PK 3, PK 5. 



OPTION 2 



USE FOR SUBROUTINE procedure-name 




1 I 


1 1 1 


II 1 1 1 1 1 1 1 1 1 1 1 1 1 




i i i i i iii 




1 1 1 


1 1 1 


LlSE FOR ,P,K-,T,ARLE P,Ra6RAM-£.H0l,C.E., 




i i i i i i i i 








f-tfi ,T<0 CLEAR- MEM0RY,. 




i i i i i i i i 






1 1 1 


mft~£np,. i i i i i i i i i i i i i i i i i i i 




i i i i i i i i 








Isa TA ERR0R-,R0UT,1,ME- , , , , 




i i i i i i i i 








rVSt' (SPi. i i i i i i i i i i i i i i i ■ > ■ iii 


i i i i i i 


, , 






1 1 1 


a<2 Tfl PRINT,-F,INAL-,TflT 1 AL&. 


i i i i i i 


iii 





The option allows any combination of sentences and paragraphs to use as a subroutine. Program control 
is transferred to the procedure name by the PERFORM verb. Control is transferred from the subroutine 
to the mainline program by one of the two following methods: 

The program uses the EXIT verb. 
The automatic EXIT is utilized. 
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PART B: PAPER TAPE I/O 

This part of the PROCEDURAL CONSTRUCTS presents and explains in detail the constructs which can 
only be utilized with firmware sets providing paper tape input and output capabilities. 

References to paper tape and edge-punched cards are equivalent. 

All data-names associated with paper tape input and output are defined in the WORKING-STORAGE 
SECTION of the DATA DIVISION. 

SPECIAL HARDWARE NAMES FOR PAPER TAPE 

Some paper tape constructs contain special hardware names. These names and these meanings are: 

KEYBOARD-PCH Refers to entering of data through the keyboard, punching same, but 

not printing 

PCH Refers to punching of data. 

PRNTR-PCH Refers to printing and^ punching of data. 

RPR Refers to reading of paper tape. 

RDR-PCH Refers to reading and punching of paper tape. 

RDR-PRNTR Refers to reading of paper tape and printing. 

RDR-PRNTR-PCH Refers to reading, printing and punching of paper tape. 

KYBRD-PRNTR-PCH Refers to entering data through the KEYBOARD, printing and punching 

the same. 

READING OF PAPER TAPE 

When a statement calls for reading of paper tape, reading occurs by character until the read instruction 
is terminated. Termination of reading takes place once one of the two conditions below is satisfied: 

1) the number of characters associated with the PICTURE or FORMAT of the data name have 
been read; 

2) a field identifier code. 

Certain field identifier codes will turn certain flags on and off (see Appendix A). 

PUNCHING OF PAPER TAPE 

When punching numeric data, punching occurs for the number of digits associated with the PICTURE of 
the data name. 

When punching alpha data, punching occurs for the number of characters contained in the field at the 
time of the punch statement. 

Field identifier codes are not punched automatically. 
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ACCEPT 



t (PT) 

APPLICABILITY OF PART A 

Any construct explained in PART A can be used with PART B. 
Accept 

This verb provides the ability to read paper tape and as by-products type and/or punch into paper tape. 
This construct has four options: 
OPTION 1 



ACCEPT alpha-data-name FROM 



/ KEYBOART>PCH 

I RDR 

I RDR-PRNTR 
RDR-PCH 
RDR-PRNTR-PCH 
KYBRD-PRNTR-PCH ) 



Option 1 provides the functions as described under SPECIAL HARDWARE NAMES FOR PAPER 
TAPE. 

Data will be stored in memory. 

There is no effect upon the ACCUMULATOR. 

Example: 



NO. 

4 6 


7 t 11 


12 lit 120 124 128 132 |36 MO | 


14 148 


152. 


156 


|60 


l*< . 


1 
01 I 


i i 1 


ACCEPT, nFSCAIPXlfiSN F.R0M RD.R. , , 


.2 ! 


] 1 1 


i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i 



OPTION 2 



ACCEPT integer CHARACTERS FROM 



RDR-PRNTR 

RDR-PRNTR-PCH 

KYBRD-PRNTR-PCH 



Option two will provide the specified function for an integer number of alpha characters. Data is not 
stored in memory. 

Example: 



04 I 



I I I 



I | 1 I I I i l il I l I I I I — I — I — I — l_l — L_J — I — 1—1 — I I I I I — I I I 

ACCEPT, as £HARAGT,F I R& FfftoM PDR-PRNTfi i i . 
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DISPLAY 



(PT) 



OPTION 3 



ACCEPT 



numeric-data-name \ 

INTO ACCUMULATOR numeric-data-name I FROM ^ 



I KEYBOARD-PCH 
RPR 
RDR-PRNTR 



RDR-PCH 
RDR-PRNTR-PCH 
I KYBRD-PRNTR-PCH 



Option 3 will provide the specified function. 

The ACCEPT numeric-data-name option will store the entered numeric-data in memory. 

The ACCEPT ACCUMULATOR numeric-data-name option will not store the entered data in memory. 

In either case the ACCUMULATOR contains the entered data after Option 3 is executed. 

Example : 



07 | 



08 ' 



i ' I 



I I I 



lllll llllllllllllllllll.il I I I l l i i i l I I i i I i I 

AGCiBRTi QUAttT.I.T.Y. iF,R0M iKEYRaARD-PCH,, , , , , , , , 



OPTION 4 



ACCEPT INTO ACCUMULATOR FROM RDR 



Option 4 will read a maximum of 15 numeric characters into the ACCUMULATOR. 

The entered data is not stored in memory. 

Example: 



oj_L 



i ' i 



i i i 



''III I I i i i i i i i i i 

ftGOBRTi lAjCCmnUiLAjTdBft FiRBM RD.R,. , , , 



Display 

The use of this verb is to provide for printing and punching of data from memory. 
There are five options: 
OPTION 1 



DISPLAY (f/P^-data-name ) ^^ ( PRNTR-PCH 



non-numeric literal' 



(PCH 
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DISPLAY 

(PT) 



Option 1 will punch from memory the contents of the specified alpha-data-name (or alpha-literal). There 
is not a field identifier code automatically punched. The ACCUMULATOR is not disturbed. 

Example: 



09 I 



T 
I 



I I I 



' I ' I ' I I I I I I I I I I I I I I I I I I I I I I I I I I I I I I I I I 



I I I 



DISPLAY, ■DESCftlAT.IflM UPflN ,P,CH. 



i i i i i i i i i i i i i i i i i i i i i i i i i 



OPTION 2 



T ™™ T ( prntr-pch ) 

DISPLAY numeric-data-name UPON j ^j — j 



Option 2 provides for punching of numeric-data. A field identifier is not punched. 
The ACCUMULATOR will contain the contents of the stated numeric-data-name. 
Example: 



1 1 i 



i i i 



i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i 



l i l 



I l I 



MftftLAY, QUANTITY, UP0N PCH. 



i i i i i i i i i i i i i ' i i i i ' i i 



OPTION 3 



I pDMTD PCH \ 

DISPLAY ACCUMULATOR [(integer)] numeric-data-name UPON |— : 1 



Option 3 will provide the specified function for the integer rightmost positions of the ACCUMULATOR. 
The nature of the output is determined by the PICTURE assigned the numeric-data-name. 

If the integer option is omitted, the entire ACCUMULATOR will be used. 

A field identifier is not automatically punched. 

Example: 

' i ii i i i i i i j i i i i i i i i i i i i i i i i i i i i i i i i i i 



PIARLAY, ACCUMULATOR QUANTITY, .UPflM .PRNTftrPCK. 



i_j ' ' i i i i i 



OPTION 4 



DISPLAY integer SPROCKET-HOLES [INDEXED BY PCH-REG] 



Option 4 is most commonly used to control the edge-punched cards in the paper tape punch. 



Without the INDEXED BY clause, integer number of sprocket holes will be punched. 
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If the INDEXED BY clause is used, integer sprocket holes minus the number contained in the punch 
register will be punched. 

OPTION 5 



DISPLAY @ab@ UPON PCH 



Option 5 provides for punching into paper tape the bit pattern specified by a and b. Any one of 128 
possible characters may be punched. 

Example: 

Appendix A contains the tables which reference the bit patterns for the characters. 

If 

These constructs provide the ability to check the condition of the peripheral devices. 

OPTION 1 



IF 1 RDR - ERR 1 THEN 

- I rdr-cond I mtN 



statements 
NEXT SENTENCE 



[ ELSE statements] 



OPTION 2 



IF 



PCH-ERR 
PUNCH-OFF 
NO-MEDIA 
LOW-TAPE 



THEN 



( statements ) Fr ^ r „^ -, 

| NEXT SENTENCE | &*&■ statements ] 



Because of the nature of paper tape, errors in the reading and punching of paper tape can occur. If an 
error occurs, a flag is set. The RDR-ERR and PCH-ERR options test to see if these flags are set and 
transfer control accordingly. 

If a read or punch paper tape command is used and the tape reader or tape punch is not turned on, 
then a flag is set. The RDR-cond and PUNCH-OFF options test to see if these flags are set and transfer 
control accordingly. 

When the output media specified in a program is turned off, a MEDIA flag is set. The NO-MEDIA 
option tests to see if the flag is set and transfers control accordingly. The flag is reset when the 
condition has been corrected. 

When the punch paper tape is nearing depletion (approximately 20 feet of tape remaining), the Punch 
Tape Supply Flag is set. The LOW-TAPE option tests to see if this flag is set and transfers control 
accordingly. When the condition has been corrected, the next punch instruction causes the flag to be 
reset. 
6-40 



I 



MOVE 
OPEN 



(PT) 



Move 

This verb provides the ability to reset the paper tape reader error and paper tape punch error flags, and 
to load values into the PCH-REG. 

There are two options: 

OPTION 1 



MOVE 



I -9- \ 



TO 



( RDR-ERR 



1 ZERO j — 1 PCH-ERR 



Option 1 resets the selected flag. 



OPTION 2 



MOVE integer TO PCH-REG 



Option 2 is used to load the punch count register. The integer may be any value less than 256. 

Example: 

ii ii i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i 



1 7 



I I I 



I I I 



l^av.E, .1 .fl.7, ,T,g PC H -iR E fii. i i i i i i i i i i i i i i i i i i i i i i i i i i i i i 



Open 

This construct provides the ability to open the paper tape media clamp. 



OPEN MEDIA-CLAMP 



Example: 



I 



9 I 



20J_ 



I I I 



is 



' ' ' ' ' ' I I ' 



I ! I I I I I I I I I I I I I I I I I I I I I I I I I I I I I I I I I I I I I I I I 



iPFM iMFJVT A-iGLAMft. i i i i i i i i i i i i i i I i i i i i i I i i i i i i in 



i i i 1 i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i 
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ACCEPT 

(CRD) 



PART C: 80-COLUMN CARD I/O 

Part C presents and explains in detail the constructs which can only be utilized with firmware sets 
providing 80-column card input and output capabilities. 

Card input data must be ASSIGNed to the CARD-READER in the FILE-CONTROL paragraph (see page 
4-3). The fields of the card input file are defined in the FILE SECTION of the DATA DIVISION. 
Because of the nature of the output, the CARD PUNCH is excluded from FILE CONTROL. 

SPECIAL HARDWARE NAMES FOR 80-COLUMN CARD 

Some 80-column card constructs contain special hardware names. These names and their meanings are: 

KEYBOARD-PCH Refers to entering data through the keyboard, punching same, but not printing. 

PCH Refers to punching of data. 

PRNTR Refers to printing of data. 

PRNTR-PCH Refers to printing and punching of data. 

KYBRD-PRNTR-PCH Refers to entering of data through the keyboard, printing, and punching same. 

80-COLUMN CARD I/O CONSTRUCTS 

Since the allowable constructs are dependent upon whether USE WORK-AREA or NO WORK-AREA 
was declared in the FILE CONTROL paragraph, the constructs are explained in three sections: 

Constructs which apply to both USE WORK-AREA and NO WORK-AREA. 
Constructs which apply to NO WORK-AREA. 
Constructs which apply to USE WORK-AREA. 

CONSTRUCTS APPLICABLE TO BOTH USE WORK-AREA AND NO WORK-AREA 

In addition to the constructs described below, any construct presented in PART A can be used. 
Accept 

This verb provides for entering of data through the KEYBOARD and punching the same. Printing occurs 
only as specified. 

There are four options: 
OPTION 1 



I 



Arv^DT , i, a ♦ CD nu ( KEYBOARD-PCH ] 

ACCEPT alpha-data-name FROM KYBRD . PRNTR . PCH 
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ACCEPT 



(CRD) 



Option 1 will allow typing and punching of data as defined by the PICTURE of the alpha-data-name. 
Printing occurs only when KYBRD-PRNTR-PCH is used. The entered data will be stored in memory. 

If the punch is off-line, the option is executed without punching. 



Example: 



4 6 7_l 



U l!A- 



120 124 



132 



136 140 



A*±- 



_14S li2_ 



JM_ 



160 



J64_ 



1 I 



i i I 



02 I 



ACCEPT. REMARKS, FR0 M KYRR D r P RNTR-PCH , ■ ■ . i 

SELECT, ■S.KTP, FUNCTI ON Tfl NEX T - FIEL D, , i i i i i 



10 3 I 



i l l l i i i i i i i i i i i i i i i ■ i I i I i i I I I — I I I — I I I — L_l — I I I I I — I I I 



OPTION 2 



ACCEPT integer CHARACTERS FROM KYBRD-PRNTR-PCH 



Option 2 provides for typing, punching and printing an integer number of characters from the alpha 
keyboard. The integer may range from 1-80. Any data entered is not stored in memory. 

If the punch is off-line, the option will be executed without punching. 

Example: 



4 I 



I I I 



I i i ! | | | | | | I I I I I I I ■ I I- I I I I I I I I I I I I I I I I I I I I I 



ACCEPT, ,55. EHAflAfiTER S ■Ki Y iBPDr PRNTR-PCH .i ■ ■ , ■ 



OPTION 3 



ACCEPT numeric-data-name FROM 



I KEYBOARD-PCH | 
| KYBRD-PRNTR-PCH I 



Option 3 provides for entering of numeric-data through the numeric keyboard and punching the entered 
data. Printing occurs only when KYBRD-PRNTR-PCH is specified. 

The entered data is stored in memory and the ACCUMULATOR. 

If the punch is off-line, option 3 will be executed without punching. 



Example: 



i i i I i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i iii i i i i i i i i 



2_i_ 



AfccEBT. MllBSrPftI,V.EM FPflM KEYBtZAftD,- PCH. 



i i i i i i i i i i i i i 



oi ' 



i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i 
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DISPLAY 



(CRD) 



OPTION 4 



ACCEPT INTO ACCUMULATOR numeric-data-name 



I KEYBOARD-PCH 
IKYBRD-PRNTR-PCH 



Option 4 functions as Option 3 except the entered data remains in the ACCUMULATOR and is not 
stored in memory. 

Display 

This construct provides for punching of data from memory. 
There are 4 options: 
OPTION 1 



EISE1AY J™™™) UPON {g|™ 



Option 1 provides for punching of alpha-data from memory. Printing occurs only when PRNTR-PCH is 
specified. 

If the punch is off-line, PRNTR-PCH will function only as PRNTR. PCH will function as a NO-OP under 
the same circumstances. 

Example: 



o« I 



i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i 



t 



1 



i i i hiliSiRLAYi i*A*i iLliPiflH PiCiH.i i i i i i i i i i i i i i i i i i i i i i i ■ i i i 



OPTION 2 



DISPLAY numeric-data-name UPON 



I PRNTR-PCH 



(PCH 



Option 2 provides for punching of numeric-data. Printing occurs only when PRNTR-PCH is specified. 
Punching occurs as determined by the PICTURE associated with the numeric-data-name. The ACCUMU- 
LATOR will contain the numeric-data-name after execution of option 2. 

If the punch is off-line, PRNTR-PCH will function only as PRNTR, PCH will function as a NO-OP under 
the same circumstances. 



Example: 



' ' i 



t! 



I i i i I I I i I I I i I I i i I I i i I I I I I I I I I I I I I I I 



1 2 I 



_l_j U. 



T.S.P.LAY, MlL.E.SrPER-HflUR LIRflN, P,RNTiR-,PCH. 



i i i i i i i i i 
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DISPLAY 



(CRD) 



OPTION 3 



DISPLAY ACCUMULATOR [(integer)] numeric-data-name UPON I j^ 



\ PRNTR-PCH 



Option 3 provides for punching all or part of the ACCUMULATOR. Printing occurs only when 
PRNTR-PCH is specified. Punching occurs as determined by the PICTURE associated with the 
numeric-data-name . 

If the integer option is used, punching will begin at the integer digit position of the ACCUMULATOR. 
The punching format is determined by the PICTURE associated with the numeric-data-name beginning 
with the integer digit position. 

If the integer is omitted, punching will be determined by the PICTURE of the associated numeric- 
data-name. If the punch is off-line, PRNTR-PCH will function only as PRNTR. PCH will function as a 
NO-OP under the same circumstances. 

The ACCUMULATOR remains unchanged. 
Example: 



1 3 I 



_1_L 



* 



i i i i i i i i i i i i i i i i i 



' i i i i i i i 



i i .i i i ii 



i i i i i i i i 



1 4 I 



IABLAY, A-C-C-UMllLATBRdlia), .QUANTITY,- AN- gftDfiR lUPfiN, PCH. 



i i i 



OPTION 4 



DISPLAY r«'ab^ UPON PCH 



This option permits the outputting of any desired single card code (without it being resident in 
memory) or any special punch pattern in a card column (except only one punch can be created in rows 
1 to 7 in a card column although any punch combination in the other rows can be obtained). The a 
controls punching in card rows 12, 11,0 and 9; the b controls punching in card rows 1 through 8. 

Printing does not occur. If the punch is off option 4 is executed as NO-OP. 

Example: 





To punch Rows 

12 11 





9 


8 


1-7 


use a value of 


8 4 


2 


1 




use b value of 








8 


1-7 



To punch an A (a=12, b=l) the statement should read: 
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DISPLAY 8, 1 UPON PCH 

Which means punch row 1 2 and row 1 . 

If 

This construct provides the ability to check the condition of the peripheral devices. 

There are three options: 

OPTION 1 



1ERDE.-ERRTHEN [ ^"eNTENCe ) [ELSE statements] 



Option 1 will be TRUE if an invalid code is transferred to the ACCUMULATOR by the MOVE 
numeric-file-data-name TO ACCUMULATOR construct. The statement will become FALSE after the 
next statement. 

OPTION 2 



IF PCMRR THEN I ^^ TENCE } [ELSE statements] 






Option 2 will be TRUE if a card punch malfunction or misoperation occurs. The statement becomes 
FALSE only when the card punch RESET key is depressed. 



Example: 



i s i 



i 

1 6 I 



I I I 



I I I I l l I I II I 1 I I I I I I I I I I I I I I I I I I I I I I I 



TF, RDR-EftR .THEM fifl i T fli C fl ftR EG TI flNr fiaU TI N i E. 



OPTION 3 



[ statements 



IF PCIiOFF THEN ^SENTENCE [™ *H 



Option 4 will be TRUE if the card punch is off-line, or if a card punching instruction is attempted and 
the ON/OFF switch is not on. Program execution does not halt. Because execution does not halt, it is 
recommended that during program initialization, the SELECT SKIP FUNCTION TO 1 be used followed 
by option 3. It is then possible to alert the operator that the punch is off-line. 
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READ 
SELECT 



(CRD) 



Example: 



i i i i i i i i i i i i i i i i i i 



i i i i i i i i i i i i i i i i i i i i i i i i i i i i 



1 8 



I I I 



SELECT, ■S.ftl.P, .FUNCT.iaNt T0 ,1,. 



i i i i i i i i i i i i i i i i i 



i ♦ 



i I i 



I Fi P fi HrflF. fi i Ti HENi iA ibAiftM,i ACCEP T ' iFi R flM KEiYi S i . i inn 



Read 

This construct provides the ability to read an 80-column card into the card input buffer. 
The construct is as follows: 



READ file-name 



The file-name is the name ASSIGNed to the CARD-READER in the SELECT clause of the 
ENVIRONMENT DIVISION. 

The data in the BUFFER is in a character mode, and therefore cannot be accessed directly. 

The ACCUMULATOR is destroyed. 

All the 80 columns of the card are read and placed into memory including blank columns. 

Example: 



i a ' 



i i i I i i i i i i i i i i i i i i i i i i i i i i i i I i i i I i i i i 1 i I I I I i i i i i i i i i i i i i i 



* 



i READ iCiARDi-iDATA.i i . i i i ■ i i i i i i i i m 



Select 

The SELECT verb provides control of the card punch. 

There are three options: 

OPTION 1 



SELECT ALTERNATE STACKER 



Option 1 indicates that the card in the punch station is to be placed in the ALTERNATE STACKER. 
OPTION 2 



SELECT SKIP FUNCTION TO 



{special-name 
integer 
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DISPLAY 



(CRD) 



Option 2 will cause a SKIP to the indicated card column. A SKIP to 1 causes a new card to be 
registered at column 1 (releases a card). 

This option is used to ensure program and card punch synchronization. 
Example: 

4 6 |7 |» ll|l2 116 120 124 128 132 136 140 144 148 15? 156 |60 164 



01 ' 



SELECT. &KI.P, ,F,UNCT,I, 



jXiTi-iFiIiELDi. i i i i 



I I I I I I I I I I I I I I I I I I I 



OPTION 3 



SELECT REPEAT FUNCTION 



f THROUGH \ (special-name) 
J { integer J 



( THRU 



Option 3 will cause duplication through the specified card column. A REPEAT THROUGH 80 will 
cause the card to be duplicated through column 80 and a new card to be registered in column 1. 

Attempting to DUPLICATE THROUGH a card column already passed will result in an error condition. 
That is, program and card synchronization will be upset. 

Example: 

11 ' I 1 ' ' i I M i i i i ■ i i i i i i i i i i i i i i i i i i i i i i i i i i- i i 



3 I 



, , SELECT, REPEAT, fUMCT.IfflN THRU, AQ. 



' ' ' i i i ' i ' ' ■ ' ' ' i ' ' t 



NO WORK-AREA DECLARED IN FILE CONTROL 

The following constructs apply when the programmer has declared NO WORK-AREA. 

Display 

This construct provides the ability to print and/or punch alpha-file-data-names from the BUFFER. 





[PRNTR | 




DISPLAY alpha-file-data-name [FROM BUFFER] UPON • 


PRNTR-PCH 
PCH 





Notice that numeric-file-data-names cannot be DISPLAYed directly from the BUFFER. See programing 
considerations page 6-50. 

Example: 

"4 I I I I I I I I I I I I I I I I I I I I I I I I I I I I I I I I I I I l I I I I I 



* 



I I I 



LSBLAM ACC^UMTr.S.T.A.TUS, FfiflM ftUFP,ER UftfiN PRNT.Fl. 



i i i i i i i i 
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MOVE 
FILL 

(CRD) 

Move 

This verb provides the ability to MOVE alpha-file-data-names to alpha-data-names; numeric-file- 
data-names to numeric-data-names or the ACCUMULATOR. 

There are two options: 
OPTION 1 



MOVE alpha-file-data-name [ FROM BUFFER ] TO alpha-data-name 



This construct will move operand 1 from the BUFFER to operand 2. Operand 1 must be less than or 
equal to operand 2 in regard to size. 

OPTION 2 



im .. r ■ r-, j A rcDAn/mrcccDl ™ numenc-data-name 
MOVE numenc-file-data-name FROM BUFFER TO { a ™-, T twttt *Tv-wr» 
L J — ACCUMULATOR 



This construct will MOVE operand 1 to operand 2. When operand 2 is a numeric-data-name, operand 1 
is decimally aligned to operand 2. 



Example: 



IJLi. 



pa. 



1 1 1 1 1 i 1 1 1 1 i i 1 1 1 1 i i i 1 1 i i i 1 1 1 1 i i i i i 



i " I 



ViE frRfl&S- WEIGHT, TOt ACCUMULATOR:, , 



i i i i i i i ' ' ' ' 



Fill 

The format of this construct is as follows: 



FILL record-name 



This construct can only appear after the READ statement has been used. FILL will cause the data in 
the 80-column card input buffer to be moved from the buffer and reformatted into the fields of the 
designated record. The data will be in word mode. The alpha-file-data-names and numeric-file-data-names 
can then be used as alpha data-names and numeric-data-names of PART A. 



Revised 9-28-70 by 

PCN 1044781-003 6-49 



Example: 



3 1 f 


1 1 1 


1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


ii ..I. 






09 1 




^V,B ,C J A,RD,-,C£iD,E, FROM SUFFER ,Ti0 ACTAiMlll AiT^R, 






1 1 




IF, (CARD.-.CaD.E, ,r,S, .E.GUAL TiCS A, , , 


i i i i i i i i i i i i 






1 1 1 




F.IiLLi .PART.S-aM-ffliRD.E.R-iCARA . , 


i i i i i i i i i i i i 






1 2 1 




<M* ,-r.fi PROCfiSiSrili. 


i i i i i i i i i i i i 






1 3 1 




TF, .CARDnCflDiE ,I,S, E&UAL iT£l 6 ...... , 


i i i i i i i i i i i i 






1 4 1 




i FILL. ,PART^,-,TM,-,S,T,aC,K-iCARn, , , 








1 S 1 




fii Tfl PiR0CE&,&r,2 


i i i i i i i i i i i i 






l« 1 




ELSE £»& ,TCJ ERROR- .RGJUT.I MB. , , 


i i i i i i i i i i . i 







This example illustrates a technique used to FILL the desired record depending upon a card code. 

If the CARD-CODE equals 4, the PARTS-ON-ORDER-CARD will be FILLED. If the CARD-CODE 
equals 6, the PARTS-IN-STOCK-CARD will be FILLED otherwise an error routine will be entered. 

The programmer then provides the necessary constructs for the desired data manipulation. 

PROGRAMING CONSIDERATIONS 

1) Since numeric-file-data-names cannot be DISPLAYED directly from the BUFFER, a technique 
similar to the one below should be employed. 

In the WORKING-STORAGE SECTION 



ii » 



_04_ 



1 20 



124 



_128_ 



-13?_ 



JM_ 



_140_ 



-l*L. 



J4JL 



JLU- 



JSL. 



1*0 



cu 



^UME I RI I C-,F,I,LE,- I D,ATA-,P,RI.NT,IH&. 



i i i i i 



02 
03 
04 
5 



oa ,mflftK-,», ,p,c &(,i.5.) 



i- 1 ii ii ii, i . . . . i i . i i i i i . 



i i 



aa ma,s.k,-,i, RED,BF.i,NE,& wgRK-,i, PC aoa, aaa.i&a. 



■ I 



QS MA,SK-g, .RE.D.BF.IME.S. ,WaRK-,l, PC JLZZ,, ?^, &&& 



l*JWJl. 



Qgi MA.&K-A ,REDiBFiIME& MI0RK-.I, ,P,C ,*&*&, ftaa. flQ 



, I I 



In the PROCEDURE DIVISION 



oi i 







. i i i i i i- i 



i i i i i i 



1V.E ,6RflS&-,T,flMMA6E 1 ,T0 ACCUM. 



HARLAY, ACCUMULATOR MASK- 3 



1*_L 



W.E .DftLLAR- .VALUE TS& ACCUM. 



>as. Tig sa. 



I I I I I 



' I I I I I I ' 



Mi&nLA Yi AGCiUMULATffllR.MAj&K-ilu 



2) 



WORK-1 can be used as a working-area. The above technique accomplishes the necessary task in a 
minimum of memory. 

Negative data is indicated in the following manner: If an 11 overpunch is present in any column of 
a numeric field, the field will be negative (ACCUMULATOR NFLAG ON). The hyphen character 
(-) will have the same effect but will transfer the respective card column as zero. 
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3) A 12 or overpunch will give the IF RDR-ERR statement a TRUE value. 

4) Punching as well as printing is a function of the PICTURE. The characters and punching results are 
described on page 5-5 under the PICTURE clause discussion. 

PART D: DATA COMMUNICATIONS CAPABILITY 

Part D presents and explains in detail the constructs which can only be utilized with firmware sets 
providing data communications capabilities. 

The data received by the TC must be ASSIGNED to the DATA-COMM INput buffer. The fields of the 
received message are defined in the FILE SECTION of the DATA DIVISION. The data to be sent by 
the TC must be ASSIGNED to the DATA-COMM OUTput buffer. The message fields are defined in the 

FILE SECTION of the DATA DIVISION. (See page 4-3) 

MODES OF OPERATION 

The diagrams below summarize the permissible modes of operation and the basic procedures associated 
with each mode. 



DATA-COMM OUT 





NO WORK-AREA 


USE WORK-AREA 


NO ALTERNATE AREA 








LOCATE file-name pack 


Use any DATA-COMM OUT 




BUFFER with only these data 


file-data-name as a working 




comm constructs: 


storage data-name when packing 
BUFFER (See part A 




ACCEPT 

Move option 1, option 2. 


Pack WORK-AREA in any 
order. 




Must pack BUFFER sequen- 






tially (i.e., pack fields into 






BUFFER in the same order 






as defined in record) 






WRITE record-name 


WRITE record-name 


RESERVE ALTERNATE AREA 


Same as above 


Same as above 
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DATA-COMM IN 



ACCESS MODE IS SEQUENTIAL SPECIFIED 



■ . 


NO WORK-AREA 


USE WORK-AREA 


NO ALTERNATE AREA 








READ file-name 


READ file-name 




Unpack BUFFER with only 


FILL record-name can now 




these data comm constructs: 


use file-data-names as working 




DISPLAY 


storage data-names. 




MOVE option 3, option 4. 






Must MOVE and DISPLAY 






all characters in sequence 






only once 






LOCATE file-name 


LOCATE file-name 


RESERVE ALTERNATE AREA 


Same as above 


Same as above 



ACCESS MODE NOT SPECIFIED 



NO WORK-AREA 



USE WORK-AREA 



NO ALTERNATE AREA 








READ file-name 

Unpack BUFFER with only 
these data comm constructs: 

DISPLAY 

MOVE option 3, option 4. 

LOCATE file-name 


READ file-name 

Can use "FROM BUFFER" 
constructs until 

FILL record-name can now 
use file-data-names as working- 
storage data-names 


RESERVE ALTERNATE AREA 


Same as above 


Same as above 
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ACCEPT 
DISPLAY 



(DC) 



RESERVE ALTERNATE AREA 

The RESERVE ALTERNATE AREA clause will set aside an area in user memory equal in word size 
(32) to the DATA-COMM SEND or RECEIVE BUFFER. The compiler will then automatically transfer 
the contents of the DATA-COMM RECEIVE BUFFER to the ALTERNATE AREA and the contents of 
the ALTERNATE AREA to the DATA-COMM SEND BUFFER at the appropriate time. The use of an 
ALTERNATE AREA increases throughput of the system as once data is transferred to the DATA- 
COMM SEND BUFFER the program can continue execution while the data is being transmitted. The 
DATA-COMM RECEIVE BUFFER will be free to receive another message as soon as the data is 
transferred to the ALTERNATE AREA, so a message received can be processed while another message is 
being transmitted to the terminal computer. 

The Assembler memory size option must be utilized to ensure proper placement of the Reserved 
Alternate area. 

FIXED AND VARIABLE SIZE FIELDS 

Fixed fields must always precede variable fields in the records contained within the file ASSIGNED to 
DATA-COMM IN. Variable length fields are identified by the USE FOR DELIMITER clause. 

APPLICABILITY OF PART A 

Any construct found in PART A applies. 
Accept 

The Accept construct will allow entry of data directly into the DATA-COMM SEND BUFFER. 
The construct is: 



ACCEPT alpha-file-data-name [ FROM KEYBOARD ] 



This construct has no effect on the ACCUMULATOR. 
Example: 



i 
fll ||iii — I i i i i i i i ii i i i i i i i i i i i i i i ■ 



LiJ_ 



' ' ' 



ACCEPT, ME&S.A&Ei-Can.E, F.RflM KEYftflAAfl. 



i i i i i i i i i i i i i i i i i i i i 



Display 

The function of this construct is to allow printing of alpha-file-data-names directly from the 
DATA-COMM RECEIVE BUFFER. 



DISPLAY alpha-file-data-name [FROM BUFFER] UPON PRNTR 
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FILL 
IF 



(DC) 



Numeric-file-data-names cannot be DISPLAYED directly from the BUFFER. They first must be MOVED' 
to the ACCUMULATOR and the DISPLAY ACCUMULATOR working-storage-data-name construct must 
be used. See page 6-15. 

FROM BUFFER is optional unless USE WORK-AREA is declared and the program requires printing 
alpha prior to the use of FILL. 

Fill 

The FILL construct will cause the data in the DATA-COMM RECEIVE BUFFER to be transferred from 
the buffer and reformatted into main memory fields. 

The construct is: 



FILL record-name. 



FILL should only be used after the READ construct. 

See page 6-52. 

The file-data can then be utilized as working-storage-data. The buffer can be interrogated in the same 
manner the card buffer is interrogated. 

See pages 6-49, and 6-50. 

If 

The purpose of this IF construct is to allow interrogation of the flags associated with the data 
communications firmware and the adjunct exchange firmware. 

There are nine options: 
OPTION 1 



IF XMT-RDY THEN statements [ELSE statements] 



Option 1 will be TRUE whenever the DATA COMM processor has set the remote terminal in a transmit 
ready state. When using NO ALTERNATE AREA, the above option must be FALSE before accessing of 
the DATA-COMM SEND BUFFER should begin. 

See LOCATE page 6-56. 



Example: 



!Li_ 



' ' i . i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i ] i i i 



i i i 



rfi iXrtTri R DYi MflViB Q T ifl iXMTriRD.Y.. i 



■ ' i i- i i i i i i i i i i i i 
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OPTION 2 



IF RCV-RDY THEN statements [ELSE statements] 



Option 2 will be TRUE whenever the remote terminal is in a receive ready state. 
Example: 



K>7 i 



I I 



i i I ■ i l i i I i i I I i I I i i i i i i i i i i i l i I i i i i I I I i i I I I 



91 • 



LB AEVrftDiV, T,HEM MgV.E. Q ,Tfl «C^-ftDiY,. ■ ■ 



OPTION 3 



IE 


JXMT-RDYl 
| RCV-RDY J 


J AND) 

J or) 


|XMT-RDY 1 
{ RCV-RDY J " ' * 


THEN statements 


[ELSE statements! 



Option 3 provides the ability to test the XMT-RDY and/OR RCU-RDY flag in the same statement. 



OPTION 4 



IF DC-ERROR THEN statements [ ELSE statements] 



Option 4 will be TRUE whenever the Header Transmission Number is not equal to the Expected Trans- 
mission Number. The system will respond with an ACK. 



Example: 



»« 



' ' ' 



' ' 



_i_i_ 



i i I i i 



i i i i 



i .i i i i i i i i i i i 



i i i 



I£i QC-.E.RRfltR XHEM 



■ i i i -i i i i i i i i i i i i i i i i i i i i 



PflS. ,T,0 ■EftRaR-fifl&I.T.l.flN 



''ii 



i I I 



ii i ii i 



■DI&PiLAY, MIRROR ,114 XiftAMSMI.S.MftN' 



i.i i i i i i i i i i i 



i i I 
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LOCATE 



(DC) 



OPTION 5 



IF I |~tH~ J THEN statements [ ELSE statements] 
— I BUF-EMPTY ] 



This option allows the program to interrogate the condition of the keyboard buffer and to determine 
whether or not data has been indexed upon the keyboard (alpha or numeric). 



Locate 



The purpose of this verb is to provide the ability to automatically handle the setting of the data 
communications buffer flags and printers. 

The construct is: 



LOCATE file-name 



When working directly with the DATA-COMM RECEIVE BUFFER with NO WORK-AREA, this 
construct must be used when accessing of the input buffer is complete in order to cause the data 
communications processor to receive the next record. 

When working directly with the DATA-COMM SEND BUFFER with NO-WORK-AREA, this construct 
must be used prior to accessing the send buffer to determine if the send buffer is available and to set 
the buffer pointers. 

Example: 



13 I 



t 



' ' 



i i i i i i i 



i i i i i I I i i i I i i I i i i i i I i r 



i i i i i 



' ' i ' i i ' I ' 



1 4 I 



fflC,AT.B flN-.LI.MEr.IM. 



i i i i i i i i 



i ' 



' ' ' ' ■ i ' i 



■ ii'i'ii 
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Move 

The following MOVE constructs are used to transfer the data to and from the data communications 
buffers and adjunct exchange memory. 

There are 1 1 options: 
OPTION 1 




Option 1 is used to transfer alpha data from working-storage memory to the alpha-file-data-name. The 
ACCUMULATOR is undisturbed. 

OPTION 2 



numeric-data-name ' 
MOVE I numeric-literal > TO numeric-file-data-name f IN BUFFER J 
ACCUMULATOR 



Option 2 will transfer the data in operand 1 to the specified numeric-file-data-name. 
OPTION 3 



MOVE alpha-file-data-name [FROM BUFFER] TO alpha-data-name 



Option 3 will be used to transfer alpha data from the receive area to the alpha-data-name. The 
ACCUMULATOR is undisturbed. 

OPTION 4 



MOVE numeric-ffle-data-name [FROM BUFFER] TO ' ACCUMULAT0R 



— I numeric-data-name 



Option 4 will be used to transfer numeric data from the receive area to the ACCUMULATOR or a 
numeric-data-name. 
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MOVE 



(DC) 



OPTION 5 





f \ 
SEND-ADR 






RCV-ADR 






ACCUMULATOR | 




HDR-XMN-NO 




MOVE J 


alpha-data-name 
alpha-literal 


TO< 


EXP-XMN-NO 
SEND-XMN-NO 


> 


\ 


GRP-XMN-NO 






BDCST-XMN-NO 

^ ) 





Option 5 is used to load the various addresses and memory. See below for an interpretation of the 
abbreviations. 



OPTION 6 








f SEND-ADR \ 






RCV-ADR 




MOVE ' 


HDR-XMN-NO 
EXP-XMN-NO 
SEND-XMN-NO 
GRP-XMN-NO 
v BDCST-XMN-NO , 


1 ACCUMULATOR ) 
1 alpha-data-name J 



Option 6 is used to load the various addresses and transmission numbers into adjunct exchange memory. 

Options 5 and 6 are referring to the addresses and transmission numbers as follows: 

Send Address Register. 
Receive Address Register. 
Header Transmission Number. 
Expected Transmission Number. 
Send Transmission Number. 
Group Transmission Number. 
Broadcast Transmission Number 



1. 


SEND-ADR 


2. 


RCV-ADR 


3. 


HDR-XMNrNO 


4. 


EXP-XMN-NO 


5. 


SEND-XMN-NO 


6. 


GRP-XMN-NO 


7. 


BDCST-XMN 


OPTION 7 
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Option 7 is used to turn off or on the DC-ERROR flag. 



OPTION 8 



( l ^ 










MOVE < 


ONE 1 


> TO 


I RCV-RDY 1 


i RCV-RDY ) 




1 


) XMT-RDY | 


| XMT-RDY [ 






ZERO 




I ) 


\_\ )._} 





Option 8 is used to turn on or off the RCV-RDY and XMT-RDY flags. 



OPTION 9 



MOVE 



TWO-WIRE-CNTL \ 
FOUR-WIRE-CNTL f 



TO DATA-COMM 



Option 9 is used to load two wire or four wire control. It is essential to load the proper mode of 
operation depending upon the communications link between the computers. Two wire is specified when 
switch line or two wire lease line is used. Four wire is specified when four wire lease line or any type of 
direct connect is used. 



OPTION 10 



MOVE @ab@ TO DATA-COMM 



Option 10 is to load non-graphic US ASCII characters (see USASCII Table in Appendix A) into the data 
communications buffer or alternate buffer if USE ALTERNATE AREA was declared. The "a" 
represents the column number and "b" represents the row number of the table. Since "b" may be only 
one digit, the row numbers 10-15 are designated with the letters A-F (10=A, 11=B, 12=C, 13=D, 14=E, 
and 15=F). 



Example: 



t i 



1*1 



i i i 



' ' ' 



4*a 



1 1 i 1 1 1 1 i i i 



i i ■ i 



V,R, A I 4,8, ,T,a ■D.ATAi-.CBMM. 



II I I I I I I I I I 

I I I I I I I I 



I I I I 



I I I I I 
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READ 

STOP 
WRITE 

(DC) 



Read 

The purpose of this construct is to READ a file which has been assigned to DATA-COMM IN. 
The construct is: 



READ file-name. 



This construct will determine if a record has been received into the DATA-COMM RECEIVE BUFFER. 
If a record has not been received, the computer will hang in a wait loop, otherwise execution occurs 
thusly: 

1. If a record has been received and no ALTERNATE AREA was declared, control will be 
transferred to the next statement. 

2. If a record has been received and an ALTERNATE AREA was declared, the data will be 
transferred from the RECEIVE BUFFER to the ALTERNATE AREA, the RCU-RDY flag will 
be turned off and control transferred to the next sentence. 

Note: 

A test of the RCV-RDY (receive) flag should normally be made before using the READ construct to 
prevent hanging in the wait loop. 

Example: 

1 3 I 



I 
t 4 I 



.5 ! 



' ' ' 



J L_L 



L-L-l i_| ii 

IF, RfcVrRDYi THEN READ, DATA-CflMM-MPf^ftftF 



i i i El &E fig Tfl MB5AAfiB^iarrHBrJS.T.i/. F,ln, 



' i i i i i i i i i ' i 



Stop 

This construct will turn power off to the system. 



STOP MACHINE 



Write 

The use of this construct is to transmit a record through the data communications network. 
The construct is: 



WRITE record-name 



When NO WORK-AREA and NO ALTERNATE AREA has been declared, the construct will turn the 
XMT RDY flag ON. 
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WRITE 



(DC) 



When RESERVE ALTERNATE AREA or USE WORK-AREA has been declared, this construct will 
determine if the DATA-COMM SEND BUFFER is clear and then transfer the data from the declared 
area to the DATA-COMM SEND BUFFER and turn ON the XMT-RDY flag. If the SEND BUFFER is 
not clear, the system will hang in a wait loop until the SEND BUFFER is clear. 



Note: 

A test of the XMT-RDY (send) flag should normally be made before using the WRITE to prevent 

hanging in the wait loop. 

Example: 



i* i 



i i i 



i i 



i i i 



i i i i i i i 



i i i i i- 



i i ' ' i i i ' 

TF, .XHTrflDV. XHEM GA Tfll BUFiFiER-iNflT.-CLEAR i , 



i i i i i i ' 
'i i i i i i 



i i i 



ELSE WRITE QATiA-GaMM--RECj0ftD. 



' i t i i i 



i i i 



i i i i i i i 
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CONVERT 



IF 



(CD) 



PARTE: CHECK DIGIT CAPABILITIES 

Part £ presents and explains in detail the constructs which only can be utilized with firmware sets 
providing check digit capabilities. These constructs require a check digit table (CD-TABLE) to be 
resident in memory. The CD-TABLE is declared in the WORKING-STORAGE SECTION of the DATA 
DIVISION (see page 5-11). 

Convert 

The purpose of this construct is to provide for check digit computation. 



CONVERT 



/ ACCUM data- 
I data-name- 1 



name 



TO data-name-2 CHECK-DIGIT [ (integer) ] 



The CHECK-DIGIT will be calculated using the number of characters in the PICTURE clause of the 
data-name in the first operand. The second data-name indicates the table to be utilized. 



The integer option will state the integer to be used as a remainder factor. No entry will result with 
assumed zero remainder. 

Example: 



an 



03 I 



04 I 



I I I 



-J 1 1 1 1 L_ 



11 1 1 1 11 11 ' I I I I I ! ' ■ ,■■■■■ 

CflNMERTi ACCaUNrr i Nfl i TA C K-. T .A A l^i. l r.,H,Fc*^D,r,6,T,T., , , , . . 



if 



The use of this verb is to provide for check digit verification. 



IF 



f ACCUM data-name] _„ r i r -i 

i data-name 1 ) CHECK - piGIT [(integer)] [ FROM data-name-2] 

[ TRUNCATED] THEN statements [ELSE statements] 



This construct will verify the check digit using the table located at data-name-2 and the integer as the 
remainder factor. No integer will result in an assumed zero remainder. 

The data will be left in the original ACCUMULATOR positions unless the TRUNCATED clause is used, 
in which case the data will be shifted one place to the right for later arithmetic operations. 
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CONVERT 



DISPLAY 



IF 



ROUND <ST) 



PART F: STERLING CAPABILITIES 

Part F presents and explains the constructs which can only be used with firmware sets providing 
STERLING capabilities. 

Convert 

The use of this construct is to provide for the conversion of data to the Sterling monetary system. 



/ 



CONVERT I ACCUM 1 TO « 
{ data-name; 



SHILLING 

FARTHING 

SPEC-FARTHING 

POUNDS 

PENCE 

SPEC-PENCE 



Display 

The use of this construct is to provide for the printing of data in the specified unit of the Sterling 
monetary system. 



display (ac™ 1 {j^raa 1 

numeric-data-name HALF-PENNY 



Example: 

' ' ' i i i 



t 



i i i i i i i i i i • i i i i i i i i i i i i i ii i i i i i i i i i i i i i i i i 



2 I 



I&PiLAiY, A/LCOM HAlfrPEMMY.. 



ii i i i i i i i i i i i i i i i i 



If 

The use of this construct is to provide for the testing of keyboard entered data to determine if the 
Sterling keys were used incorrectly. 



{NON-DFCTMAT \ 
NON-STERLING ™ EN statements I^LSE statements] 



Round 

This construct is used to round to the Sterling unit PENCE data stored in memory or the 
ACCUMULATOR. 
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ROUND 



(ST) 



ROUND 


' ACCUM \ 
data-name J 


TO PENCE 



Example: 

<L3_J I Li i i | i I | | i i_ 



!f& 



I I I I I I I I I i I I I I I I I I I i L_l I I l_l I I I I I 1 l_l — 1_J I L_l I I I I 



fli I 



HMD XflTAL Tfl P.EMCE. 



i i i i i i i i i i i i i i i i i i i i i i 
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PART G: TC 700 

Part G presents the constructs which are particular to the TC 700 Series equipment. 

If 

TC 700 Flag Tests 

These tests are used to check the status of certain TC 700 flags. 



TELLER- 1 
TELLER-2 
SUPERVISOR 
IF { PB-FIRST-LINE 
PB-LAST-LINE 
PB-FOLD 
PB-NOT-PRESENT , 



I 



THEN statements [ELSE statements] 



If the flag associated with operand 1 is ON (set), the statement is TRUE. 

Teller- 1, Teller-2 and SUPERVISOR refer to the Teller locks. When a Teller key is inserted in its lock 
and turned, the Teller key flag for that lock will be turned ON (set). 

When the Passbook is inserted to the fixed rear limit, the PB-FIRST-LINE flag will be ON (set). It will 
be OFF (reset) at all other times. When the Passbook is so situated in the alignment area that the 
current print line will fall within the Passbook fold area, the PB-FGLP flag will be ON (set). It will be 
OFF when the above condition does not exist. 

If the Passbook is so aligned that the current print line is below the last printing line of the passbook, 
the PB-LAST-LINE flag will be ON (set). It will be OFF whenever the passbook is aligned to any of the 
actual printing lines of the passbook. 

If a passbook is not present, the PB-NOT-PRESENT statement will be TRUE. 



Example: 



t 



i i- 



i i i 



i i i 



TF, T.E.L.L.ER-.I, ,T,H,EN fig ,TA ,I,M,D,EX, .F.L.S F, ,&a ,T,a .E.RRftRr .Rami NiE 

i i i i i i i i i i i i i i i i i i i i i i i i i i — i i i i i i i i i i i i i 



MOVE 



1 
ONE 


ZERO 



TO PB-REQUIRED 



Revised 9-28-70 by 

PCN 1044781-003 6-65 




Move 

The construct is used to turn on or off programmatically the Passbook Required indicator. The 
PB-LAST-LINE will be interrogated to determine whether the PB-REQUIRED indicator should be 
turned on or off. 

MOVE ONE will turn the indicator on. 



6-66 



DATA DECK 

The source or symbolic deck to be compiled and/or assembled. 

END CARD 

The end card must follow any card deck. It is punched in the following format: 

1 

2 END 

3 
It tells the system that the input from the Card Reader is complete. 
OPTION CARDS 

The following Dollar ($) Options are available to use with the L/TC COBOL Compiler. The Dollar sign 
($) must be coded in card column 7. The options are coded free form starting in card column 9. If 
more than one non-continued card is used, the last one used will set the various parameters. The others 
will be disregarded. 

The options are: 
COMPILER OPTIONS 

1 . LIST - This will cause a listing of the COBOL statements. If no $ options are used, LIST is 
automatic. 

2. CODE - "CODE" will cause the symbolic code to be listed for each COBOL construct. 

3. SYNTAX - This will cause a compilation for syntax purposes. No code will be generated nor 
will the assembler be activated. 

4. TAPE — This will specify that the input is an "LSOLT" (Source Language Tape) magnetic 
tape with "patch" cards in the card reader. 

5 . DISK - This will specify that the input is from disk with "patch" cards in the card reader. 

6. NEWT — This will cause an updated LSOLT tape to be created. 

7. NEWD — This will cause an updated disk file to be created. 

8. NEWC — This will cause the compiler to give a BCL source card deck as output. 

9. RESEQ — This will cause the symbolic program to be re-sequenced starting at 100 and 
increased by an increment of 100. 

10. BLNK — This will cause all cards with card columns 7 through 72 blank to be purged when a 
"NEWT" is requested. 

11. Identification: Any characters punched in columns 73-80 of the card will be inserted into all 
source statements in columns 73-80. 

ASSEMBLER OPTIONS 

12. SYM-PT — This will cause the assembler to create a symbolic paper tape, 

13. SYM-CN — This will cause the assembler to create a symbolic card deck punched in 
"EBCDIC" card codes. 

14. SYM-CD — This will cause the assembler to create a symbolic card deck punched in "BCL" 
card codes. 
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15. MEMORY nnn — This will cause the assembler to limit the generated program to the nnn size 
and print error messages if the nnn limit is exceeded. 

16. OBJCD — This will cause the assembler to punch the object program into punched cards 
instead of paper tape. 

17. SAVE XXXXXX — This will cause the Assembler to retain the object program upon the disk. 
Punching of paper tape or 80-column card does not occur. XXXXXX represents a 6-alpha 
character disk file-name. 

18. EXTMEM — This will indicate that this program will utilize a 40-track Series L style. 

As stated earlier, the assembler will always be activated by the compiler after compilation unless the 
"SYNTAX" option is used or unless an error occurs during compilation. 

After the assembly process, punching of an object paper tape is always assumed unless the "OBJCD" 
option is used. 

$ cards may be stacked, however, only the last one will set up the various parameters. Should the- 
situation arise where all the desired options cannot be punched into a single card, a continuation card 
with a "-" in column 7 may be used. 

EQUIPMENT REQUIRED 

The following system hardware is required for the L/TC Compiler-Assembler Program: 

B 3500 - 60 KB Core 

1 Module Disk 

1 Tape Unit (7 or 9 channel) 

Card Reader 

Paper Tape Punch (Optional for object or symbolic tape out). 

Paper Tape Reader (Optional for symbolic paper tape input) 

Card Punch (Optional for symbolic card object card or source card output) 

Line Printer 
OPERATING INSTRUCTIONS 

1. Magnetic Tape Units 

Mount the master tape containing the Series L/TC COBOL Compiler programs. 

2. Card Punch (If symbolic card output is required) 

Load the hopper on the card punch with sufficient cards and depress the Start button. 

3. To Load the Tape 

a. VIA CARD READER - Load the single card: 

? LOAD tape-name, program-name, program-name, etc., in the card reader, depress 
the RESET button and then the Start button. This will load the specified programs of 
the master tape. 

4. To Execute the Compiler-assembler 

The following cards should be placed in the card reader hopper: 

a. 1 

2 EXECUTE L57305 
3 
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APPENDIX A 



UNITED STATES OF AMERICA 
STANDARD CODE FOR INFORMATION INTERCHANGE 

(USASCII) 












1 



1 





1 
1 


1 




1 


1 


1 
1 



1 
1 
1 


1 s 












b 5 - 


















b 4 
{ 


b 3 
1 


b 2 
* 


*>1 


^~\Column 
Row P~\ 





1 


2 


3 


4 


5 


6 


7 



















NUL 


DLE 


SP 





@ 


P 


\ 


P 













1 


1 


SOH 


DC1 


1 


1 


A 


Q 


a 


q 










1 





2 


STX 


DC2 


») 


2 


B 


R 


b 


r 










1 


1 


3 


ETX 


DC3 


# 


3 


C 


S 


c 


s 







1 








4 


EOT 


DC4 


$ 


4 


D 


T 


d 


t 







1 





1 


5 


ENQ 


NAK 


% 


5 


E 


U 


e 


u 







1 


1 





6 


ACK 


SYN 


& 


6 


F 


V 


f 


V 







1 


1 


1 


7 


BEL 


ETB 


/ 


7 


G 


W 


g 


w 















8 


BS 


CAN 


( 


8 


H 


X 


h 


X 












1 


9 


HT 


EM 


) 


9 


I 


Y 


i 


y 









1 





10 


LF 


SUB 


* 




J 


Z 


J 


z 









1 


1 


11 


VT 


ESC 


+ 


) 


K 


[ 


k 


{ 






1 








12 


FF 


FS 


5 


< 


L 


\ 


i 


1 
1 






1 





1 


13 


CR 


GS 


- 


= 


M 


] 


m 


} 






1 


1 





14 


SO 


RS 




> 


N 


A 


n 


A«f 






1 


1 


1 


15 


SI 


US 


/ 


1 







o 
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Table A-1 



USASCII COLUMN 1 FIELD IDENTIFIER CODES 






FLAG PATTERN 




PAPER TAPE 
VALUE 


SET BY CODE* 


OCK FLAG NUMBER 


CODE 


a, b 


3 2 14 


DLE 


9,0 





DC1 


1,1 


1 


DC2 


1,2 


10 


DC3 


9,3 


11 


DC4 


1,4 


10 


NAK 


9,5 


10 1 


SYN 


9,6 


110 


ETB 


1,7 


111 


CAN 


1,8 


10 


EM 


9,9 


10 1 


SUB 


9,A 


10 10 


ESC 


1,B 


10 11 


FS 


9,C 


110 


GS 


1,D 


110 1 


RS 


1,E 


1110 


US 


9,F 


1111 



*0 = flag is reset 



1 = flag is set 



Table A-2 



USASCII COLUMN FIELD IDENTIFIER CODES** 






SWITCH PATTERN 




PAPER TAPE 


SET BY CODE* 


SWITCH NUMBER 


CODE 


VALUE 


7 6 5 8 


NUL 


0,0 





SOH 


8,1 


1 


STX 


8,2 


10 


ETX 


0,3 


11 


EOT 


8,4 


10 


ENQ 


0,5 


10 1 


ACK 


0,6 


110 


BEL 


8,7 


1 11 


BS 


8,8 


10 


HT 


0,9 


10 1 


IF 


0,A 


10 10 


VT 


8,B 


10 11 


FF 


0,C 


110 


CR 


8,D 


110 1 


SO 


8,E 


1110 


SI 


0,F 


1111 



*0 = flag is reset 1 - flag is set 

"•Setting depends on firmware set 

Table A-3 



I 
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APPENDIX A (cont'd) 

ACCUMULATOR FLAG CODES: The following chart shows the paper tape codes that set the Accumu- 
lator Flags during Read Numeric instructions (when code is contained in table of code assignments). 



TAPE CODES 


ACCUMULATOR 
FLAGS* 








M C S - 


A,0 


C,0 


5,0 





2,1 


4,1 


D,l 


1 


2,2 


4,2 


D,2 


10 


A,3 


C,3 


5,3 


11 


2,4 


4,4 


D,4 


10 


A,5 


C,5 


5,5 


10 1 


A,6 


C,6 


5,6 


110 


2,7 


4,7 


D,7 


111 


2,8 


4,8 


D,8 


10 


A,9 


C,9 


5,9 


10 1 


A,A 


3,A C,A 


5,A 


10 10 


2,B 


B,B 4,B 


D,B 


10 11 


A,C 


3,C C.C 


5,C 


110 


2,D 


B,D 4,D 


D,D 


110 1 


2,E 


B,E 4,E 


D,E 7,E 


1110 


A,F 


3,F C,F 


5,F 


1111 



= flag is reset; 

1 = flag is set 



Table A-4 



A-2 



APPENDIX B 
COBOL SYNTAX 



IDENTIFICATION DIVISION 



IDENTIFICATION DIVISION. 



[PROGRAM-ID. Any entry from 1 to 30 characters.] 



[AUTHOR. 


Any entry including appropriate copyright statement.] 




[INSTALLATION. 


Any entry.] 



[DATE-WRITTEN. Any entry.] 




[DATE-COMPILED. Any entry - 


- replaced by the current date 


as maintained by the MCP] 




r SECURITY. 


Any entry.] 








[REMARKS. 


Any entry. Continuation lines must be coded in 


Area B of the coding form.] 



I 
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APPENDIX B (cont'd) 



ENVIRONMENT DIVISION 



ENVIRONMENT DIVISION. 



f CONFIGURATION SECTION. ! 



r SOURCE-COMPUTFR B-3500] 



OBJECT-COMPUTER 



TC-500 
TC-700 
L-2000 



[ SPECIAL-NAMES. 

Va ♦ ic ( POSITION ) . , 

[data-name IS J — — [ integer.] 

[data-name IS LINE integer.] 

Ta ♦ re ( COLUMN ) . -, 

[data-name IS j — | integer.] 



[INPUT-OUTPUT SECTION.] 



[ FILE - CONTROL ] 



SELECT file-name ASSIGN TO CARD - READER | — 1 WORK - AREA 
■__ |NO j 



SELECT file-name ASSIGN TO DATA-COMM IN [ RESERVE ALTERNATE AREA] 
[ACCESS MODE IS SEQUENTIAL] (j^l WORK - AREA 



SELECT file-name ASSIGN TO DATA-COMM OUT [RESERVE ALTERNATE AREA] 

I TC C I 

vTT WORK -AREA 
NO 
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APPENDIX B (cont'd) 



NO-CONTROL 



[ SAME AREA FOR file-name- 1, file-name-2] . 

[ SAME WORK-AREA FOR file-name- 1, file-name-2, . . .] 



DATA DIVISION 



DATA DIVISION. 



r_^. ( RECORD IS | . 

FD file-name [DATA | REC0 RDS ARE I record " name " 1 ' record-name-2, . .. j 



| FMT \ 

I format ) 



IS (any allowable format characters not to exceed 15 digits) 



QC ) 

OCCURS ) 



integer TIMES 



PC. 

PIC 

PICTURE 



• IS (any allowable character string to describe the data). 



[level-number data-name-1 REDEFINES data-name-2] 



I 
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APPENDIX B (cont'd) 



[USE. @ab(» FOR DELIMITER. ! 

a, b may be through F 



YA ] 

I is ' 

1 



VALUE 



up to 15 numeric digits 

"up to 99 alpha characters 
enclosed in quotes" 



PROCEDURE DIVISION 



PART A: BASIC VERBS AND CONSTRUCTS 



Accept 
OPTION 



ACCEPT alpha-data-name 



FROM 



| KEYBOARD 

I KEYBOARD-PRNTR 



OPTION 2 



ACCEPT integer CHARACTERS [ FROM KEYBOARD-PRNTR ] 



OPTION 3 



ACCEPT numeric-data-name 



FROM I 



KEYBOARD 
KEYBOARD-PRNTR 



OPTION 4 



ACCEPT INTO ACCUMULATOR data-name 



FROM 



( KEYBOARD 

I KEYBOARD-PRNTR 



OPTION 5 



ACCEPT INTO ACCUMULATOR FROM KEYBOARD 
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APPENDIX B (cont'd) 



OPTION 6 



ACCEPT FROM KEYS 



Add 
OPTION 1 



ADD ( numer,c - data - name - 1 J TO numeric-data-name-2 [ON SIZE ERROR statements! 
I integer | — L J 



OPTION 2 



. ^^ ( numeric-data-name- 1) . , _ „„,,.,„ . , „ r^^Tv^r-^l 

ADD { . } numenc-data-name-2 GIVING numenc-data-name-3 ROUNDED 

I integer I *- J 

[ON SIZE ERROR statements] 



OPTION 3 



ADD ACCUMULATOR TO numeric-data-name [ON SIZE ERROR statements] 



OPTION 4 



ADD ACCUMULATOR numeric-data-name- 1 GIVING numeric-data-name-2 [ ROUNDED | 



[ON SIZE ERROR statements] 



OPTION 5 



ADD f numeric - data -" ame | TO ACCUMULATOR fpN SIZE ERROR statements! 

integer L J 



j integer 



OPTION 6 



ADD j numeric - data - name - 1 l ACCUMULATOR GIVING numeric-data-name-2 [ ROUNDED ] 
[ integer J ' ' 

[ON SIZE ERROR statements] 
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APPENDIX B (cont'd) 



OPTION 7 



ADD digit TO ACCUMULATOR (integer) [ON SIZE ERROR statements] 



Advance 
OPTION 1 



ADVANCE 



LEFT ) 
RIGHT S 
BOTH \ 



integer LINES 



INDEXED BY ( ACCUMULATOR | 

(numenc-data-namej 



OPTION 2 



ADVANCE 



LEFT 
RIGHT! 



BOTH Y 



I TO Special-name I 
TO integer LINE J 



INDEXED BY 



( accumulator 

[numeric-data-name , 



Alarm 



ALARM 



Close Handler 



CLOSE TRANSPORT 



Display 
OPTION 1 



DISPLAY 



jalpha-data-name| r pRNTR -| 
["alpha-literal" j L J 



OPTION 






DISPLAY j ^ O TE er | [PREVIOUS-RIBBON] 
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APPENDIX B (cont'd) 



OPTION 3 



{"character" I J numeric-data-name \ J NEGATIVE ) 
QUOTE ) I ACCUMULATOR j { POSITIVE ) 



OPTION 4 



DISPLAY numeric-data-name [ UPON PRNTR ] 



OPTION 5 



DISPLAY ACCUMULATOR [(integer)] numeric-data-name [ UPON PRNTR J 



Divide 



mm |— "-— '| m {SSSSS*' 110 ™ — "-~ ! 



1* 



[ ROUNDED ]] [ON SIZE ERROR statements] 



Enable 



ENABLE [table-name] PK1 ... PK24 



End-of-Job 



END-OF^JOB. 



Exit 



EXIT. 



Go To 



GO TO paragraph-name. 



I 
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APPENDIX B (cont'd) 



If 

RELATIVE TESTS 

OPTION 1 



IF 



numeric-data-name- 1 
numeric-literal- 1 



I GREATER THAN ( > ) 
LESS THAN ( < ) 

EQUAL TO ( = ) 

NOT EQUAL TO (NOT=) 



statements-l I [",., „.. . , , -~| 

NEXT SENTENCE I [l^ ^tements-2j 



{numeric-data-name-2 
numeric-literal-2 



THEN 



OPTION 2 



( GREATER THAN 
LESS THAN 
EQUAL TO 
NOT EQUAL TO 




I alpha-data-name 1 
non-numeric literal j 



THEN 






( nextTentence )[ £LS£ statements - 2 ] 



ACCUMULATOR TESTS 
OPTION 1 



{statements \ 

NEXT SENTENCE [ELSE statements] 



OPTION 2 


IF SIZE ERROR THEN statements [ELSE statements] 



ZERO TESTS 



.„ | data-name ) TC ~ cr> ~ TUCXT I statements . 

lJL 1 ACCUMULATOR } I S ZERO THEN j NEXT SENTENCE 1 [ELSE statements] 



FORMS LIMIT TEST 



JF ENDOF-PAGE THEN { nextTeNTENCE | [ELSE statements] 
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ACCUMULATOR FLAG TESTS 



APPENDIX B (cont'd) 



[ else 



statements 



] 



nflag\ 



I numeric-data-name) 
— | ACCUMULATOR j 



SFLAG 
CFLAG 
MFLAG 



( NFLAG 1 
( AND 1 I SFLAG 
| OR j ) CFLAG 
MFLAG 



I 



/ _ 



THEN 



{statements 
NEXT SENTENCE 



SWITCH TESTS 
Group A Switches 



SW1 
1F< SW2 
- 1 SW3 

SW4 



( AND 
l OR 




THEN 



statements 

NEXT SENTENCE 



[ ELSE statements] 



Group B Switches 



IF I 



SW6 
SW7 
SW8 



jANDj 
lOR j 



SW5 

SW6 
SW7 
SW8 



THEN 



| statements 
NEXT SENTENCE 



[ ELSE statements] 



OPERATION CONTROL KEYS (OCK) FLAG TESTS 



IF < 



OCK1 
OCK 2 
OCK3 



OCK4 



AND | 
OR ) 



( OCKl ^ 
OCK2 
OCK3 
OCK4 



™ N | "entence | ma-— «• l 



Move 
OPTION 1 



I 



xj/wc f alpha-data-name i 

MOVE i ... , TO alpha-data-name 

I non-numeric literal I — 
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APPENDIX B (cont'd) 



OPTION 2 



MOVE 



numenc-data-name 

integer 

ZERO 



ACCUMULATOR 



> TO numeric-data-name 



OPTION 3 





numeric-data-name 




MOVE • 


integer 
ZERO 


1 TO ACCUMULATOR 



OPTION 4 



MOVE digit JO ACCUMULATOR (integer) 



OPTION 5 



MOVE ACCUMULATOR (integer-1 [integer-2] ) JO { A rc~UlWLATbR [ (inte S er " 3 > J 



[WITH SIGN1 



OPTION 6 



MOVE REMAINDER TO 



I ACCUMULATOR 

\ numeric-data-name 



OPTION 7 



MOVE 




ZERO 



1 
ONE 



TO 



NFLAG \ 
SFLAG 
CFLAG 
MFLAG 


• 



NFLAG 

SFLAG 

i CFLAG 

i MFLAG 
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APPENDIX B (cont'd) 



OPTION 8 
Group A 



MOVE { ^p } TO { 
ONE 



SW1 ' 






fswil 




SW2 






SW2 




SW3 

SW4 
v / 






SW3 
SW4 


r • • • 



Group B 



MOVE < 




ZERO 



1 
ONE 



>TO < 




SW5 
SW6 
SW7 
SW8 



OPTION 9 



MOVE 








OCK1 ' 






'OCK1 ' 




ZERO 


• TO - 


OCK2 
OCK3 


• 


< 


OCK2 
OCK3 


• ... 


1 


ONE 




OCK4 
k / 






OCK4 
k — / 


_ 



OPTION 10 



w nvc (special-name} (LEFT 

MQYI (integer J ^ ( RIGHT 



LIMIT-REG [ INDEXED BY ( ACCUMULATOR 
|_ \ numenc-data-name J 



OPTION 11 



MOVE ( s P ecial - name | JO l^jj COUNT-REG 
I integer ) (RIGHT) 



INDEXED BY 



( ACCUMULATOR I 
I numeric-data-name 



OPTION 12 






MOVE • 


ZERO 

ZEROES 

ZEROS 


' TO group-name 


1 ° J 



I 
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APPENDIX B (cont'd) 



Multiply 



mititidiv | numeric-data-name- 1 1 _.. fnumeric-data-name-2) r ^„,.^,^, t 

MmjiELy (numeric literal I & { -ACCUMULATOR ) [GIVING numeric-data-name-3] 

[ ROUNDED] [ON SIZE ERROR statements] 



No-op 



NO-OP 










NOTE sentence. 






NOTE, paragraph 




Open 






OPEN HANDLER [| inte ?f j 
M special-name) 


T.NDEXED BY (ACCUMULATOR j] 

1 I numeric-data-name JJ 




Perform 






PERFORM procedure-name 




Position 






(POSITION) to (integer \ 1 


"INDEXED BY jf CUMULATORll 

[ data-name I 






POS ) — (special-name) 




Red-Ribbon 






RED-RIBBON 
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APPENDIX B (cont'd) 



Stop Run 



STOP RUN 


Subtract 
OPTION 1 


SUBTRACT (numeric-data-name-l) 
(integer J 

[GIVING numeric-data- 


FROM 

name-3 


| numeric-data-name-2 1 
(ACCUMULATOR i 

[ROUNDED]] [ON SIZE ERROR statements] 


OPTION 2 


SUBTRACT ACCUMULATOR FROM numeric-data-name- 1 [GIVING numeric 
[ROUNDED]] [ON SIZE ERROR statements] 


-data- 


name-2 


Use 
OPTION 1 


USE FOR PK-TABLE table-name 


OPTION 2 


USE FOR SUBROUTINE procedure-name 



PART B: PAPER TAPE I/O 

Accept 
OPTION 1 





f KEYBOARD-PCH \ 






RDR 




ACCEPT alpha-data-name FROM < 


RDR-PRNTR 
RDR-PCH 
RDR-PRNTR-PCH 
{ KYBRD-PRNTR-PCH 


► 



I 
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APPENDIX B (cont'd) 



OPTION 2 



ACCEPT integer CHARACTERS 


FROM - 


KEYBOARD-PRNTR \ 
RDR-PRNTR 1 
RDR-PRNTR-PCH | 
KYBRD-PRNTR-PCH J 







OPTION 3 



ACCEPT 



numeric-data-name \ 

INTO ACCUMULATOR numeric-data-name j FROM - 



( KEYBOARD-PCH 
RPR 

RDR-PRNTR 
RDR-PCH 
RDR-PRNTR-PCH 
KYBRD-PRNTR-PCH 



OPTION 4 



ACCEPT INTO ACCUMULATOR FROM RPR 



Display 
OPTION 



DISPLAY 



alpha-data-name 
"non-numeric literal 



I _*, ( PRNTR-PCH ) 

"I ™ 1£h } 



OPTION 



I PRNTR-PCH 
PCH '~~ ~ 



OPTION 3 



DISPLAY ACCUMULATOR [(integer)] numeric-data-name UPON 



[ PRNTR-PCH 1 
I PCH j 
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APPENDIX B (cont'd) 



OPTION 4 



DISPLAY integer SPROCKET-HOLES [INDEXED BY PCH-REG] 


OPTION 5 


DISPLAY r«'-ab@ UPON PCH 



If 

OPTION 1 



IF f RDR - ERR 1 THEN 
- i RDR-COND f 



statements 
NEXT SENTENCE 



ELSE statements 



OPTION 2 



IF < 



PCH-ERR 
PUNCH-OFF 
NO-MEDIA 
LOW-TAPE 



THEN 



statements 

NEXT SENTENCE 



ELSE statements 



Move 
OPTION 1 



M0VE Co) m {$%§$£ 



OPTION 2 



MOVE integer JO PCH-REG 



I 



Open 



OPEN MEDIA-CLAMP 



Revised 9-28-70 by 

PCN 1044781-003 B-15 



APPENDIX B (cont'd) 



PART C: 80-COLUMN CARD I/O 

Accept 
OPTION 1 



xnrvtrr i u a ♦ CD ny ( KEYBOARD-PCH 1 
ACCEPT alpha-data-name FROM { »,,,«„_. ™»,™ ™-,», 
[ KYBRD-PRNTR-PCH 



OPTION 2 



ACCEPT integer CHARACTERS FROM KYBRD-PRNTR-PCH 



OPTION 3 



a^hdt ^ ♦ CDnu I KEYBOARD-PCH 1 
ACCEPT numenc-data-name FROM { „ w „„^ „„»,„„ !„.. 
J KYBRD-PRNTR-PCH 1 



OPTION 4 



ACCEPT INTO ACCUMULATOR numeric-data-name { kybRD^RNTR^ CH 



Display 
OPTION I 




OPTION 2 



DISPLAY numeric-data-name UPON 1 ^ TR PCH 



OPTION 3 



DISPLAY ACCUMULATOR [(integer)] numeric-data-name UPON { j^ JR pcH } 
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APPENDIX B (cont'd) 



DISPLAY integer SPROCKET-HOLES [ INDEXED BY PCH-REG] 



OPTION 5 



DISPLAY faW' UPON PCH 



If 
OPTION I 



lE&M-ERRTHEN ( nexTTeNTENCe ) ELSE statements 



OPTION 2 



IFPOfcERRTHEN j ^ SENTENCE | ^ S <*'™" < S 



OPTION 3 



IFPOtOFFTHEN | ^SENTENCE ) EUE •""»»* 



Read 



READ file-name 



Select 
OPTION 



I 



SELECT ALTERNATE STACKER 
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APPENDIX B (cont'd) 



OPTION 2 



SELECT SKIP FUNCTION TO 


| special-name 1 
1 integer j 




OPTION 3 


SELECT REPEAT FUNCTION 


f THROUGH ) 
( THRU ) 


j special-name 1 
| integer ) 



NO WORK-AREA DECLARED IN FILE CONTROL 
Display 



DISPLAY abha-file-data-name [FROM BUFFER] UPON 


f PRNTR | 
PRNTR-PCH 


• 


PCH 



Move 
OPTION 1 



MOVE 


alpha 


-file-data-name 


[from buffer] 


TO alpha-data-name 


OPTION 2 


MOVE 


numeric-file-data-nanu 


: [FROM BUFFER] 


TO 


( numeric-data-name \ 

{accumulator ( 



USE WORK-AREA DECLARED IN FILE-CONTROL 
Fill 



FILL record-name. 
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APPENDIX B (cont'd) 



PART D: DATA COMMUNICATIONS CAPABILITY 



Accept 



If 
OPTION 1 



OPTION 3 



OPTION 4 



ACCEPT alpha-file-data-name 


[from keyboard] 


Display 


DISPLAY abha-file-data-name 


[from buffer] upon prntr 


Fill 


FILL record-name. 



IF XMT-RDY THEN statements 


[ELSE statements! 


OPTION 2 


IF RCV-RDY THEN statements 


[ELSE statements! 



I£ 


J XMT-RDY) 
| RCV-RDY J 


J AND) 

[or) 


j XMT-RDY 1 
(RCV-RDY j " " 


THEN statements 


[ELSE statements! 



I 



IF DC-ERROR THEN statements [ ELSE statements] 
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APPENDIX B (cont'd) 



OPTION 5 



IBUF-FULL \ 
RUF FMPTYl THEN statements [ ELSE statements] 



Locate 



LOCATE file-name 



Move 
OPTION 1 



MOVE ( aJPjja-data-naniej TQ alpha . flle . data . name [IN BUFFER ] 
(alpha-literal — 



OPTION 2 



MOVE 



numeric-data-name ' 

numeric-literal > TO numeric-file-data-name [iN BUFFER 1 



ACCUMULATOR 



OPTION 3 



MOVE alpha-file-data-name [FROM BUFFER] TO alpha-data-name 
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APPENDIX B (cont'd) 



OPTION 4 



MOVE numeric-file-data-name [FROM BUFFER] TO 



ACCUMULATOR 
numeric-data-name 



OPTION 5 





f \ 
SEND-ADR 






RCV-ADR 




( ACCUMULATOR 1 


TO, 


HDR-XMN-NO 
EXP-XMN-NO 


> 


I alpha-data-name 


1 alpha-literal 




SEND-XMN-NO 




V 


GRP-XMN-NO 






BDCST-XMN-NO 





OPTION 6 



MOVE 



SEND-ADR 
RCV-ADR 
HDR-XMN-NO 
EXP-XMN-NO 
SEND-XMN-NO 
GRP-XMN-NO 
, BDCST-XMN-NO 



1 



TO 



| ACCUMULATOR 

\ alpha-data-name 



OPTION 7 





f l 1 




MOVE < 


ONE 

ZERO 


. TO DC-ERROR 



I 
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APPENDIX B (cont'd) 



OPTION 8 



MOVE I 



1 1 
ONE 




ZERO 



TO 



RCV-RDY 
XMT-RDY 



RCV-RDY 
XMT-RDY 



OPTION 9 



Uft ,. E f TWO-WIRE-CNTL nATA 

MOXE pouR-WIRE-CNTL [ T ° DAT A"COMM 



OPTION 10 




Read 



READ file-name 



Stop Machine 



STOP MACHINE 



Write 



WRITE record-name 
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APPENDIX fijcpnt'd) 



PARTE CHECK DIGIT CAPABILITIES 
Convert 



ACCUM data-name J 
data-name- 1 



CONVERT \ ^i;:;„ I7 [ 12 data-name-2 CHECK-DIGIT [ (integer) ] 



If 



IF (ACCUM data-name| CHECK _ D1G1T [(integer)] [FROM data-name-2] 
— \ data-name 1 ) L J L 

[ tRUNCATED] THEN statements [ ELSE statements] 



PART F STERLING CAPABILITIES 
Convert 



CONVERT 



ACCUM \ 



data-name 



TO ' 



SHILLING 
FARTHING 
SPEC-FARTHING 
POUNDS 



I PENCE 

1 SPEC-PENCE 



Display 



DISPLAY 



ACCUM 

numeric-data-name) 



FARTHING \ 



HALF-PENNY I 



If 



Round 



ROUND I ACCUM I TO PENCE 
\ data-name J 




I 
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APPENDIX B (cont'd) 

PART G TC 700 
If 





TELLER-I 






THLLER-2 






SUPERVISOR 




\± > 


PB-FIRST-LINE 


► THEN statements [ELSE statements] 




PB-LAST-LINE 1 




PB-FOLD 1 






, pb-not-presentJ 


I 



Move 
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SERIES L/TC RESERVED WORD LIST 



ACCEPT 


CONSOLE 


GREATER 


ACCEPTING 


CONTAINS 


GRP-XMN-NO 


ACCESS 


CONVERT 




ACCUM 


COUNT-REG 


HALF-PENNY 


ACCUMULATOR 


CTL-REG 


HALT 


ACUM 




HDR-XMN-NO 


ADD 


DATA 


HIGH 


ADVANCE 


DATA-COM 




ALARM 


DATA-COMM 


IDENTIFICATION 


ALIGN 


DATE-COMPILED 


IF 


ALPHA 


DATE-WRITTEN 


IN 




D-C 


INDEXED 


ALPHANUMERIC 


INPUT 


ALTERNATE 


DC-ERROR 


AND 


DECLARATIVES 


INPUT-OUTPUT 


ARE 


DELIMITER 


INSTALLATION 


AREA 


DISPLAY 


INTO 


AREAS 


DIVIDE 


I-O-CONTROL 

TO 


ASSIGN 


DIVISION 


IS 


AT 


EJECT 


KEYBOARD 


AUTHOR 


ELSE 
ENABLE 


KEYBOARD-PCH 


AUTO-READER 


KEYBOARD-PRNTR 


BDCST-XMN-NO 
BOTH 


END 
END-OF-JOB 


K-REG 
KYBRD-PRNTR-PCH 


BREAK-FLAG 


END-OF-LDGR 


LDGR-ERR 


BUFFER 


END-OF-PAGE 


LEDGER 


BUF-EMPTY 


ENVIRONMENT 


LEFT 


BUF-FILL 


EQUAL 


LENGTH 


BY 


ERROR 


LESS 




EXIT 


LIMIT-REG 


CARD-PCH 


EXP-XMN-NO 


LINE 


CARD-RDR 




CARD-RDR-1 


FARTHING 


LINE-ACTVY-FLG 
LINES 


CARD-RDR-2 


FD 


CARD-READER 


FILE 


LOCATE 


CARD-READER- 1 


FILE-CONTROL 


LOW 


CARD-READER-2 


FILL 


LOW-TAPE 


CARRIAGE 


FILLER 


MACHINE 


CFLAG 


FMT 


MASK 


CHARACTER 


FOR 


MEDIA-CLAMP 


CHARACTERS 


FORMAT 


MFLAG 


CHECK-DIGIT 


FOUR-WIRE-CNTL 


IT J. J. Lji*.\J 

MODE 


CLOSE 


FROM 


lTJ.Vla/J— ' 

MOVE 


CD-TABLE 


FUNCTION 


MULTIPLY 


COL 






COLUMN 


GIVING 


NEGATIVE 


COLUMNS 


GO 


NEXT 


COMMA 






CONFIGURATION 
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D-l 



NFLAG 


PK8 


RIGHT 


NO 


PK9 


ROUND 


NO-MEDIA 


PK10 


ROUNDED 


NON-ALIGN 


PK11 


RUN 


NON-DECIMAL 


PK12 




NON-READ 


PK13 


SAME 


NON-STERLING 


PK14 


SECTION 


NO-OP 


PK15 


SECURITY 


NORMAL 


PK16 


SELECT 


NOT 


PLACE 


SEND-ADR 


NOTE 


PLACES 


SEND-XMN-NO 


NUMERIC 


POL-SEL-FLG 


SENTENCE 




POS 
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